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0001 ASMB,A,BrC,L 2000A TSB LOADERS-VERSION F 

** NO ERRORS PASStl **RTE ASHB 92067-1601 1 =♦=* 
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0001 ASMB,A,B,C,L 5000A TSB LOADER— VERSION F 

0002* 

0003* AUGUST 1, 1970 

0004* 

0005 00004 ORG 4 

0006 SUP PRESS EXTRA PRir^TING 

0007 00004 103004 HLT 4,C LOADER POWER FAIL HALT 



PAGE 


0003 i 


101 








EQUIPMENT TABLE 








0009 


00100 






ORG 


lOOB 


0010 


00100 


000000 


DIREC 


BSS 


28 


OOil 


00134 


000000 


TDLOC 


BSS 




0012 


00135 


000000 


TDLEM 


BSS 




0013 


00136 


000000 


ADLOC 


BSS 




0014 


00137 


000000 


ADliEN 


BSS 




0015 


00140 


000000 


TRAX 


BSS 


16 


0016 


00160 


000000 


DTBL 


BSS 


4 


0017 


00164 


0000f>0 


MAG5C 


BSS 




0018 


00165 


000000 


PHNSC 


BSS 
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DIRECTORY TRACK HEADERS 
ID TABLE DISC ADDRESS 
ID TABLE LENGTH IN -WORDS 
ADT DISC ADDRESS 
ADT LENGTH IN -WORDS 
AVAILABLE TRACK TABLE 
DISC SELECT CODE TABLE 
MAG TAPE SELECT CODE 
PHONES SELECT CODE 



PAGE 0004 #01 

LOADER ENTRY POINTS 



12:X3 PM TUE., 23 OCT., 1979 



0020* 


♦ 




0021** NORMAL ENTRY 


POINT ** 




0022* 


* 




0023 02000 


ORG 2000B 




0024 02000 126001 


JMP *+1 ,1 


JUMP TO 


0025 02001 004000 


OCT 4000 


LOADER 



0027* 






* 


0028** NON- 


•SLEEP RELOAD 


ENTRY POINT 


*^ 


0029* 






* 


0030 03000 




ORG 3000B 




0031 03000 


107700 


CLC 0,C 




0032 03001 


127002 


JMP *-»-l,I 




0033 03002 


004122 


DEF LDR6 





0035 03003 



WTRLT EQU * 



SYSTEM SEGMENT TABLE BUFFER [F] 



0037* 

0038* 

0039* 

0040* 

0041* 

0042* 

0043* 

0044 

0045 

0046 

0047 

0048 

0049* 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 



* LOADER-SYSTEM LINKAGE TABLE 



* 



CONTENTS FILLED IN FROM TSB SYSTEM TAPE ON PAPER TAPE LOADS, 
FROM MAG TAPE ON MAG TAPE LOADS, 



04000 
04000 
04001 
04001 
04002 

04003 
04004 
04005 
04006 
04007 
04010 
04011 
04012 
04013 
04014 
04015 
04016 
04017 
04020 
04021 



026030 

000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



ORG 4000B 
JMP LDR 

LSLTB EQU * 

LIBRA OCT 

C0M6 BSS 1 



INCRE 

TTYDA 

?MASK 

?BHED 

?BSTR 

?BGIN 

?BEND 

?ID 

SWPIA 

SWPLN 

SWPAA 

DATE 

TIME 

YEAR 

TSB 



BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 



BSS 
BSS 
BSS 
BSS 
BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 



INITIATE LOADING SEQUENCE 

SYSTEM LIBRARY PROGRAM 0RIGIN[E] 
ADDRESS OF SYSTEM LIBRARY DISC 

ADDRESSES 
LENGTH OF TTY TABLE 
ADDRESS OF USER DISC ADDRESS 
ADDRESS OF USER MASK 
=> START OF LOGICAL BUFFER 
=> END OF LOGICAL BUFFER 
=> START OF PHYSICAL BUFFER 
=> END OF PHYSICAL BUFFER 
ADDRESS OF ID-NAME 
ADDRESS OF USER-DEPENDENT ITEMS 
LENGTH OF SWAP AREA 
CORE ADDRESS OF SWAP AREA 
ADDRESS OF HOUR OF YEAR 
ADDRESS OF TENTHS OF SECONDS 
ADDRESS OF YEAR 
SYSTEM STARTING ADDRESS 



PAGE 


0005 #01 








LOADER ENTRY POINTS 






0065 


04022 000000 


PHINl 


BSS 




0066 


04023 000000 


PHIN2 


BSS 




0067 


04024 000000 


PHIN3 


BSS 




0068 


04025 000000 


PHIN4 


BSS 




0069 


04026 000000 


PWRFL 


BSS 




0070 


04027 000000 


ULTTA 


BSS 




0071 


04030 


LSLTE 


EQU 


* 
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ADDRESSES 
OF PHONES 
CODE 
ADDRESS OF PHQNE QUANTITY 
POWER FAIL INTERRUPT CODE 
USER LIBRARY TRACK TABLE ADDRESS 
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0073* 

0074* 

0075* 

0076* 

0077* 

0078* 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098* 

0099* 

0100* 

0101* 

0102* 

0103* 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 



* MAIN LOADING SEQUENCE ** 

* 

BEGIN HERE FOR NORMAL LOADING SEQUENCES. 



04030 
04031 
04032 
04033 
04034 
04035 
04036 
04037 
04040 

04041 
04042 
04043 
04044 
04045 
04046 
04047 
04050 
04051 
04052 



107700 
002400 
073667 
073670 
063557 
067743 
117723 
002400 
117723 
117741 
026047 
053617 
026142 
053613 
026053 
063561 
067744 
117723 
026030 



LDR 



ERRl 



* SYSTEM GENERATION 



CREATE NASCENT EQUIPMENT TABLE 



CLC 


0,C 


SET I/O TO NULL STATE 


CLA 




ZERO 


STA 


SYSLF 


DIRECTORY TRACK 


STA 


SYSLF+1 


COUNTERS 


LDA 


• 12 


ASK 


LDB 


LBRYA 




JSB 


ASR35,I 


IF LIBRARY 


CLA 






JSB 


ASR35,I 


EXISTS 


JSB 


GETCA,! 


ANSWER GIVEN? 


JMP 


ERRl 


NO 


CPA 


Y 


YES, 'Y' ? 


JMP 


LDR7 


YES, ASSUME 'YES' 


CPA 


N 


NO, 'N' ? 


JMP 


LDRl 


YES, ASSUME 'NO' 


LDA 


.15 


NO 


LDB 


ILINA 


TRY 


JSB 


ASR35,I 


AGAIN 


JMP 


LDR 




♦ * 






* 







04053 
04054 
04055 
04056 
04057 
04060 
04061 
04062 
04063 
04064 
04065 
04066 
04067 
04070 
04071 
04072 
04073 
04074 
04075 
04076 
04077 
04100 
04101 
04102 



063544 
070100 
063622 
073660 
006400 
063575 
002004 
174000 
037660 
026061 
002400 
073661 
063557 
073662 
063571 
067745 
117723 
002400 
117723 
117737 
026071 
063545 
073660 
063634 



LDRl 



LDR2 



LDR3 



LDA 


M16 


SET DIRECTORY LENGTH 


STA 


DIREC 


FOR TI^O DUMMY ENTRIES 


LDA 


EQTLN 


EERO OUT 


STA 


TEMPO 




CLE 




THE REST 


LDA 


EOTA 




INA 




OF THE 


STB 


0,1 




ISZ 


TEMPO 


EQUIPMENT TABLE 


JMP 


LDR2 




CLA 




SET 


STA 


TEMPI 


FOR 


LDA 


B14 


DISC 


STA 


TEMP2 





LDA 


.26 


REQUEST 


LDB 


S/TDA 




JSB 


ASR35,I 


NUMBER OF 


CLA 






JSB 


ASR35,I 


SECTORS FOR 


JSB 


SETDA,! 




JMP 


LDR3 


DISC 


LDA 


M12 


SET 


STA 


TEMPO 




LDA 


TRAXA 


TRACKS 
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0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136* 

0137** 

0138* 

0139* 

0140* 

0141* 

0142* 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150* 

0151** 

0152* 

0153* 

0154* 

0155* 

0156* 

0157* 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171* 

0172 

0173 

0174 

0175* 

0176** 

0177* 

0178* 

0179* 

0180* 

0181* 

0182 



04103 043553 

04104 007400 

04105 174000 

04106 002004 

04107 037660 

04110 026105 

04111 077666 

04112 026177 



LDR4 



ADA .4 




CCB 




STB 0,1 




INA 




ISZ TEWPO 




JMP LDR4 




STB MTFLG 




JMP LDP8 






* 


E RELOAD 


** 




t 



^OT ON 



DISC 



'UNAVAILABLE' 
SET FLAG TO 'SYSGEN' MODE 



PRIMARY USE IS FOR LINKING A HEM SYSTEM (TOR EXAMPLE, 
SYSTEM UPDATE) WITH THE LIBRARY OF A CURRENT SYSTEH. 



04113 063557 LDR5 LDA 814 

04114 070160 

04115 063542 

04116 173655 

04117 063553 

04120 067633 

04121 117724 



FAKE DTBL ENTRY 



STA DTBL 


FOR DISC DRIVER 


LDA M64 


READ 


STA WORD, I 


EQUIPMEI^T 


LDA DEQTA 


TABLE 


LDB CEQTA 


FROM 


JSB DISCI 


DISC 


ADING SEQUEl^CE 



ENTRY IS TO HERE WHEN ATTEMPTING TO RELOAD THE SYSTEM 
USING THE EQUIPMENT TABLE IN CORE (I.E., SYSTEM WAS 
HALTED BY OTHER THAN THE 'SLEEP' ROUTINE), 



04122 
04123 
04124 
04125 
04126 
04127 
04130 
04131 
04132 
04133 
04134 
04135 
04136 



002400 
073666 
073667 
073670 
060137 
013542 
173655 
067637 
047603 
060136 
117724 
060137 
026331 



LDR6 CLA 
STA 
STA 
STA 
LDA 
AND 
STA 
LDB 
ADB 
LDA 
JSB 
LDA 
JMP 



MTFLG 

SYSLF 

SYSLF+1 

ADLEN 

M64 

WORD,! 

ADTBA 

BIT15 

ADLOC 

DISCI 

ADLEN 

LDRIS 



04137 063561 ERR2 LDA .15 



04140 067744 

04141 117723 



LDB ILINA 
JSB ASR35,T 



SET FLAG TO 

'PAPER TAPE RELOAD' 
ZERO COUNTERS FOR 

DIRECTORY TRACKS 
READ 

ADT 

FROM 

DISC 
RECOVER THE 

SYSTEM TRACKS 

REPORT 

PROBABLE 
ERROR 



REQUEST MAG TAPE SELECT CODE 



♦ 
»* 

* 



ANSWER IS THE HIGH PRIORITY SELECT CODE FOR THE MAG TAPE UNIT 
OR A CARRIAGE RETURN, THE LATTER INDICATING A PAPER TApE RELOAD. 



04142 117742 LDR7 JSB GTMTA,! GET MAG TAPE SELECT CODE 



CF] 
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0183 

0184* 

0185* 

0186* 

0187* 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215* 

0216* 

0217* 

0218* 

0219* 

0220* 

0221* 

0222* 

0223* 

0224* 

0225* 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 



04143 026113 



JMP LDR5 



PAPER TAPE RELOAD 



* INITIATE MAG TAPE RELOAD ** 



04144 
04145 
04146 
04147 
04150 
04151 
04152 
04153 
04154 
04155 
04156 
04157 
04160 
04161 
04162 
04163 
04164 
04165 
04166 
04167 
04170 
04171 
04172 
04173 
04174 
04175 
04176 



067666 
074164 
005665 
117726 
117725 
000003 
063542 
067575 
117725 
000000 
027420 
027424 
067666 
074164 
005665 
077666 
063547 
073660 
067576 
160001 
002002 
037670 
002400 
170001 
047555 
037660 
026167 



LDi 
STB 
ELB 
JS8 
JSB 
OCT 
LDA 
LDB 
JSB 
OCT 
JMP 
JMP 
LDB 
STB 
ELB 
STB 
LDA 
STA 
LDB 
LDA 
SZA 
ISZ 
CLA 
STA 
ADB 
ISZ 
JMP 



* REQUEST DISC COMMANDS 



MTFLG 
MAGSC 
,CLE,ERB 
MTDIA.T 
MTAPE,I 
3 

M64 
EQTA 
MTAPE,! 

EOFER 
TPERR 
MTFLG 
MAGSC 
r CLE f ERB 
MTFLG 
M4 

TEMPO 
DIRE6 
1,1 

SySLF+l 

1,1 

.7 

TEMPO 

* 
** 
* 



SAVE 

SELECT CODE 
CLEAR BIT15 

CONFIGURE MAG TAPE DRIVER 
REl'^IND 

TAPE 
READ 

EQUIPMENT TABLE 
FROM 

MAG TAPE 



RECORD NEW 

SELECT CODE 
CLEAR 

BIT15 
COUNT 

NUMBER OF 

DIRECTORY TRACKS 

AND SET ALL 

DISC ADDRESSES 

TO ZERO 



CF] 



tE] 
tF] 
[F] 
CF] 



[E3 
CE] 

CF] 
CF3 



DISC COMMANDS MAY ADD OR REMOVE DISCS, DISC 
MAY ONLY BE REFERENCED ALONG WITH SELECT CODE 14 OCT,* I.E., 
DISC MAY NOT BE MOVED OR REMOVED. DISCS 1-3 MAY NOT HAVE 
A SELECT CODE BELOW 14 OCT OR ABOVE 76 OCT. THE SEQUENCE OF 
DISC COMMAND REQUESTS IS TERMINATED BY ANSWERING WITH A 
CARRIAGE RETURN. 



04177 
04200 
04201 
04202 
04203 
04204 
04205 
04206 
04207 
04210 
04211 
04212 



063566 
067746 
117723 
002400 
117723 
117741 
026264 
053610 
117741 
026216 
053611 
117741 



LDR8 



LDA 


.22 


REQUEST 


LDB 


DISMA 




JSB 


ASR35,I 


DISC 


CLA 






JSB 


ASR35,I 


COMMANDS 


JSB 


GETCA,! 


ANY? 


JMP 


LDR14 


NO 


CPA 


D 


YES 


JSB 


GETCA,! 




JMP 


ERR3 


'D' 


CPA 


I 




JSB 


GETCA,! 


'I' 
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0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279* 

0280*' 

0281* 

0282* 

0283* 

0284* 

0285* 

0286* 

0287 

0288 

0289 

0290 

0291 

0292 



04213 
04214 
04215 
04216 
04217 
04220 
04221 
04222 
04223 
04224 
04225 
04226 
04227 
04230 
04231 
04232 
04233 
04234 
04235 
04236 
04237 
04240 
04241 
04242 
04243 
04244 
04245 
04246 
04247 
04250 
04251 
04252 
04253 
04254 
04255 
04256 
04257 
04260 
04261 
04262 
04263 



026216 
053615 
026222 
063563 
067747 
117723 
026177 
002400 
117730 
026177 
073661 
117741 
000000 
053574 
026257 
117736 
000063 
026177 
053604 
026243 
063561 
067750 
026220 
006400 
077662 
002400 
053661 
026252 
117737 
026177 
026177 
057557 
026247 
063567 
067751 
026220 
117741 
026242 
063565 
067752 
026220 



BUILD ADT 



JMP 
CPA 
JMP 

ERR3 LDA 
LDB 
JSB 
JMP 

LDR9 CLA 
JSB 
JMP 
STA 
JSB 
NOP 
CPA 
JMP 
JSB 
OCT 
JMP 
CPA 
JMP 
LDA 
LDB 
JMP 
CLB 

LDRIO STB 
CLA 
CPA 
JMP 

LDRll JSB 
JMP 
JMP 

LDR12 CPB 
JMP 
LDA 
LDB 
JMP 

LDR13 JSB 
JMP 
LDA 
LDB 
JMP 

* 

* 



ERR3 

S 

LDR9 

• 19 

RQSTA 

ASR35,I 

LDR8 

CTDNA .1 
LDR8 
TEMPI 
GETCA,I 

B60 

L0R13 

SELCA,I 

63 

LDR8 

COMMA 

LDRIO 

.15 

BDLA 

ERR3+2 

TEMP2 

TEMPI 

LDR12 

SETDA,I 

LDR8 

LDR8 

B14 

LDRll 

.23 

DZMBA 

ERR3+2 

GETCA,I 

LDRlO-1 

.21 

ILSCA 

ERR3+2 



'S' ? 
YES 
NO 

PRINT 
ERROR 

PICK UP 

DISC # 
NOT FOUND 
FOUND, SAVE IT 
NEXT 

CHARACTER 
A ZERO? 
YES 
NO, GET SELECT CODE 

IN [14 OCT, 76 OCTl 
NOT FOUND 

FOUND, COMMA FOLLOWING? 
YES 
NO, 

ERROR 

STORE 

SELECT CODE 
DISC 

? 
YES 
NO, SET DISC ENTRY 

ASK AGAIN 

SELECT CODE 14 OCT? 

YES 

NO, 

ERROR 

CARRIAGE RETURN? 

YES 

NO, 

ERROR 



CREATE AN ADT ENTRY OF ZERO SECTORS FOR EACH AVAILABLE TRACK 
(THE TRACK LENGTH WILL BE FILLED IN BELOW). THE ENTRY FOR 
TRACK 0, DISC AND A TERMINATING PSUEDO-ENTRY BOUND THE ADT. 



04264 063634 

04265 073660 

04266 063637 

04267 006400 

04270 174000 

04271 002004 



LDR14 LDA TRAXA 

STA TEMPO 

LDA ADTBA 
CLB 

STB 0,1 
INA 



SET POINTER TO 

AVAILABLE TRACK TABLE 
CREATE 

FIRST 
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0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324* 

0325* 

0326* 

0327* 

0328* 

0329* 

0330* 

0331* 

0332* 

0333* 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 



04272 
04273 
04274 
04275 
04276 
04277 
04300 
04301 
04302 
04303 
04304 
04305 
04306 
04307 
04310 
04311 
04312 
04313 
04314 
04315 
04316 
04317 
04320 
04321 
04322 
04323 
04324 
04325 
04326 
04327 
04330 



174000 
002004 
073661 
063541 
073662 
063551 
026305 
063663 
001200 
000010 
037660 
073663 
047600 
113660 
002002 
026316 
177661 
037661 
173661 
037661 
037662 
026301 
063661 
007400 
174000 
002004 
006400 
174000 
003000 
043637 
070137 



LDRl 



LDRl 



LDRl 



STB 


0,1 


ADT 


INA 






ST A 


TEMPI 


ENTRY 


LDA 


M255 


INITIALIZE 


STA 


TEMP2 


TRACK COUNTER 


LDA 


.2 


AND MASK 


JMP 


LDR16 




5 LDA 


TEMP3 


ROTATE MASK TO 


RAL 




NEXT TRACK POSITION 


SLA 




ADJUST ATT POINTER 


ISE 


TEMPO 


WHEN NECESSARY 


6 STA 


TEMP3 




ADB 


B400 


ADVANCE DISC ADDRESS 


AND 


TEMPO,! 


AVAILABLE 


SZA 




TRACK? 


JMP 


LDR17 


NO 


STB 


TEMPI, I 


YES 


ISZ 


TEMPI 


CREATE 


STA 


TEMPI, I 


ZERO-LENGTH 


ISZ 


TEMPI 


ADT ENTRY 


7 ISZ 


TEMP2 


ALL TRACKS CONSIDERED? 


JMP 


LDR15 


NO 


LDA 


TEMPI 


YES 


CCB 




APPEND 


STB 


0,1 




INA 




TERMINAL 


CLB 






STB 


0,1 


PSUEDO-ENTRY 


CMA 




RECORD -# 


ADA 


ADTBA 


OF WORDS 


STA 
* 

* 


ADLEN 


IN ADT 







* RECOVER TRACKS 



ALL ADT ENTRIES WITH ZERO SECTORS AVAILABLE ARE RECOVERED AS 
FULL TRACKS. THIS PICKS UP ALL SYSTEM TRACKS ON PAPER TAPE 
RELOADS, OR ALL UNLOCKED TRACKS ON SYSTEM GENERATION OR 
MAG TAPE RELOAD, AND RETURNS THEM TO THE POOL OF TRACKS 
AVAILABLE FOR LOCKING AND LOADING BELOW. 

04331 043553 LDR18 ADA ,4 SET ENTRY COUNTER 

04332 001100 ARS (SKIPPING FIRST 

04333 073660 STA TEMPO AND LAST ENTRIES) 

04334 063637 LDA ADTBA LOAD ADDRESS 

04335 002004 INA OF SECOND WORD 

04336 043551 LDR19 ADA .2 OF ENTRY 

04337 164000 LDB 0,1 IS LENGTH 

04340 006003 SZB,RSS SECTORS? 

04341 026345 JMP LDR21 YES 

04342 037660 LDR20 ISZ TEMPO NO, DONE? 

04343 026336 JMP LDR19 NO 

04344 026355 JM^ LDR22 YES 

04345 007400 LDR21 CCB LOAD 

04346 044000 ADB ENTRY'S 
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0348 


04347 


160001 




LDA 


1,1 


DISC ADDRESS 


0349 


04350 


117733 




JSB 


IS0TA,I 


GET TRACK LENGTH 


0350 


04351 


006004 




INB 




IN SECTORS 


0351 


04352 


170001 




STA 


1,1 


RESTORE TO 


0352 


04353 


060001 




LDA 


1 


FULL TRACK 


0353 


04354 


026342 




JMP 


LDR20 




0354* 












* 


0355** PROCESS LOCK/UNLOCK COMMANDS 


^* 


0356* 












4 


0357 


04355 


063573 


LDR22 


LDA 


.38 


REQUEST 


0358 


04356 


067753 




LDB 


LULCA 


LOCK, 


0359 


04357 


117723 




JSB 


ASR35,I 


UNLOCK, 


0360 


04360 


002400 




CLA 




OR LOAD 


0361 


04361 


117723 




JSB 


ASR35,I 


COMMAND 


0362 


04362 


117741 




JSB 


CIETCA,! 


FIRST 


0363 


04363 


026402 




JMP 


ERR4 


CHARACTER 


0364 


04364 


007400 




CCB 




A 


0365 


04365 


053616 




CPA 


U 


'U' ? 


0366 


04366 


127722 




JMP 


LKUNA,! 


YES, ASSUME 'UNLOCK' 


0367 


04367 


053612 




CPA 


L 


NO, 'L' ? 


0368 


04370 


117741 




JSB 


GETCA,! 


YES 


0369 


04371 


026402 




JMP 


ERR4 


NO 


0370 


04372 


053614 




CPA 





'0' ? 


0371 


04373 


117741 




JSB 


GETCA,! 


YES 


0372 


04374 


026402 




JMP 


ERR4 


NO 


0373 


04375 


053606 




CPA 


A 


'A' ? 


0374 


04376 


026406 




JMP 


LDR23 


YES, ASSUME 'LOAD' 


0375 


04377 


006400 




CLB 




NO 


0376 


04400 


053607 




CPA 


c 


'C ? 


0377 


04401 


127722 




JMP 


LKUNA,! 


YES, ASSUME 'LOCK' 


0378 


04402 


063561 


ERR4 


LDA 


.15 


NO 


0379 


04403 


067744 




LDB 


ILINA 


PRINT 


0380 


04404 


117723 




JSB 


ASR35,I 


ERROR 


0381 


04405 


026355 




JMP 


LDR22 




0382* 








* 






0383** CLAIM DISC 


TRACKS 


^^ 






0384* 








* 






0385* 














0386* 


CLAIM TRACKS 


1 FOR THE SYSTEM ANC 


> USER SWAPPING, THE ADT 


0387* 


ENTRIES ARE 


SET TO 


LENGTH ZERO 


RATHER THAN BEING REMOVED. 


0388* 














0389 


04406 


063543 


LDR23 


LDA 


M20 


GET 


0390 


04407 


073660 




STA 


TEMPO 




0391 


04410 


063644 




LDA 


TRKTA 


TWO SYSTEM TRACKS, 


0392 


04411 


073661 




STA 


TEMPI 




0393 


04412 


002400 


LDR24 


CLA 




TWO SYSTEM LIBRARY TRACKS, 


0394 


04413 


117731 




JSB 


GTTRA,! 




0395 


04414 


173661 




STA 


TEMPI, I 


AND 


0396 


04415 


037661 




ISE 


TEMPI 




0397 


04416 


037660 




ISZ 


TEMPO 


16 USER TRACKS 


0398 


04417 


026412 




JMP 


LDP24 




0399 


04420 


104200 




DLD 


TRKTB 


SET DISC ADDRESSES OF TSB 


0400 


04422 


104400 




DST 


LDRTA,I 


SYSTEM TRACKS INTO DISC LOAD 
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0402* 










* 




0403** WRITE DISC 


LOADERS TO 


DISC ** 




0404* 










* 




0405* 














0406* 


THIS 


SECTION 


WRITES THE TSB SYSTEM DISC LOADER ONTO SECTOR 


0407* 


OF TRACK 0, 


DISC 


CI/O CHANNEL 


14 OCT) AND WRITES THE DISC 


0408* 


BOOTSTRAP LOADER ONTO SECTOR 0, 


TRACK AFTER CONFIGURING I 


0409* 


FOR TSB, If 


THE DISC OPERATING 


SYSTEM IS NOT PRESENT, THE 


0410* 


TSB DISC LOADER IS 


ALSO WRITTEN 


TO SECTOR 2, TRACK FOR SA 


0411* 














0412 


04424 


063570 


LDR25 


LDA 


• 24 


ASK IF 


0413 


04425 


067754 




LDB 


RDMSA 




0414 


04426 


117723 




JSB 


ASR35,I 


DISC MONITOR SYSTEM 


0415 


04427 


002400 




CLA 






0^416 


04430 


1 177 23 




JSB 


ASR35 , I 


IS PRESENT 


0417 


04431 


117741 




JSB 


GETCA,! 


DEMAND A 


0418 


04432 


026437 




JMP 


LDR26 


CHARACTER 


0419 


04433 


053617 




CPA 


Y 


'Y' ? 


0420 


04434 


026443 




JMP 


LDR27 


YES, ASSUME 'YES' 


0421 


04435 


053613 




CPA 


n 


NO, 'N' ? 


0422 


04436 


026460 




JMP 


LDR2B 


YES, ASSUME 'NO' 


0423 


04437 


063561 


LDR26 


LDA 


.15 


NO 


0424 


04440 


067744 




LDB 


ILINA 


TRY 


0425 


04441 


117723 




JSB 


ASR35,I 


AGAIN 


0426 


04442 


026424 




JMP 


LDR25 




0427* 














0428 


04443 


063542 


LDR27 


LDA 


M64 


READ 


0429 


04444 


173655 




STA 


WORD, I 


'BOOTSTRAP' 


0430 


04445 


002400 




CLA 




BOOTSTRAP 


0431 


04446 


067656 




LDB 


BSBSA 


LOADER 


0432 


04447 


047603 




ADB 


BIT15 


FROM 


0433 


04450 


117724 




JSB 


DISCI 


DISC 


0434 


04451 


060016 




LDA 


DSK7 


ACCEPTABLE DISC 


0435 


04452 


053624 




CPA 


0TB15 


SELECT CODE? 


0436 


04453 


026476 




JMP 


LDR29 


YES 


0437 


04454 


063572 




LDA 


.32 


NO 


0438 


04455 


067755 




LDB 


BLDRA 


TERMINATE 


0439 


04456 


117723 




JSB 


ASR35,I 


LOADING 


0440 


04457 


027427 




JMP 


ERR IN 




0441* 














0442 


04460 


063624 


LDR28 


LDA 


0TB15 


CONFIGURE 


0443 


04461 


070016 




STA 


DSK7 




0444 


04462 


063625 




LDA 


STC14 


'BOOTSTRAP' 


0445 


04463 


070031 




STA 


DSK8 




0446 


04464 


063626 




LDA 


LIA15 


BOOTSTRAP 


0447 


04465 


070035 




STA 


DSK9 




0448 


04466 


063627 




LDA 


LINKA 




0449 


04467 


070047 




STA 


LINKG 


LOADER 


0450 


04470 


063542 




LDA 


M64 




0451 


04471 


173655 




STA 


WORD, I 


WRITE 


0452 


04472 


063551 




LDA 


.2 


TSB 


0453 


04473 


067657 




LDB 


TSBBA 


LOADER 


0454 


04474 


074003 




STB 


DMS 


TO 0,2 


0455 


04475 


117724 




JSB 


DISCI 


FOR SAFETY 


0456 


04476 


067657 


LDR29 


LDB 


TSBBA 


SET TSB LOAD/ENTRY ADDRESS 
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0457 


04477 


074002 




STB 


RT/TS 


IN LOADER 


0458 


04500 


002404 




CLA, 


-INA 


WRITE TSB LOADER 


0459 


04501 


117724 




asB 


DISCI 


TO 0,1 


0460 


04502 


002400 




CLA 




WRITE 


0461 


04503 


067656 




liDB 


BSBSA 


'BOOTSTRAP' BOOTSTRAP 


0462 


04504 


117724 




JSB 


DISCI 


LOADER 0,0 


0463* 














0464 


04505 


063666 




LDA 


MTFLG 


RELOAD SYSTEM FROM 


046S 


04506 


002003 




SZA, 


.RSS 


PAPER TAPE? 


0466 


04507 


027013 




JMP 


LDR43 


YES 


0467* 










* 




0468** GET 


REST OF 


SYSTEM TSACKS ** 




0469* 










* 




0470* 














0471* 


GLAIM ONE TRACK FOR fHE IDf AND 


► ADf , CLAIM ENOUGH DIRECTORY 


0472* 


TRACKS TO HAVE ONE 


PER 


DISC, BUT NOT FEWER THAN THE NUMBER PR 


0473* 


EXISTING IF 


THIS IS A HAG TAPE 


RELOAD, 


0474* 














0475 


04510 


003400 




CCA 




CLAIM 


0476 


04511 


117731 




JSB 


GTTRA,! 


TRACK FOR 


0477 


04512 


070134 




STA 


IDLOC 


ADT AND 


0478 


04513 


070136 




STA 


ADLOC 


ID TABLE 


0479 


04514 


063547 




LDA 


M4 


SYSLF PREVIOUSLY 


0480 


04515 


073660 




STA 


TEMPO 




0481 


04516 


067635 




LDB 


DTBLA 


SET TO 


0482 


04517 


160001 


I4DR30 


LDA 


1,1 


COUNT 


0483 


04520 


002002 




SZA 






0484 


04521 


037667 




ISZ 


SYSLF 


NUMBER OF 


0485 


04522 


006004 




INB 






0486 


04523 


037660 




ISZ 


TEMPO 


DISCS 


0487 


04524 


026517 




JMP 


LDR30 




0488 


04525 


067667 




LDB 


SYSLF 


PRESENT 


0489 


04526 


063670 




LDA 


SYSLF+1 


COMPUTE 


0490 


04527 


003004 




CMA, 


rINA 




0491 


04530 


043667 




ADA 


SYSLF 


MAXIMUM OF 


0492 


04531 


002020 




SSA 






0493 


04532 


067670 




LDB 


SYSLF+1 


SYSFL AND SYSFL+1 


0494 


04533 


007004 




CMB, 


pINB 


STORE ITS 


0495 


04534 


077660 




STB 


TEMPO 


NEGATION 


0496 


04535 


067576 




LDB 


DIRE6 


CLAIM 


0497 


04536 


077661 


LDR31 


STB 


TEMPI 




0498 


04537 


003400 




CCA 




THIS 


0499 


04540 


117731 




JSB 


GTTRA,! 




0500 


04541 


173661 




STA 


TEMPI, I 


MANY 


0501 


04542 


067661 




LDB 


TEMPI 




0502 


04543 


047555 




ADB 


• 7 


DIRECTORY 


0503 


04544 


037660 




ISZ 


TEMPO 




0504 


04545 


026536 




JMP 


LDR31 


TRACKS 


0505* 














0506 


04546 


063542 




LDA 


M64 




0507 


04547 


173655 




STA 


WORD, I 


WRITE 


0508 


04550 


163576 




LDA 


D1RE6,I 


NULL 


0509 


04551 


073664 




STA 


TEMP4 


DIRECTORY 


0510 


04552 


067641 




LDB 


DIRBA 


TO 


0511 


04553 


117724 




JSB 


DISCI 


DISC 
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0512 


04554 


063666 




LDA MTFLG 


MAG TAPE 


0513 


04555 


002007 




INA,SZA,RSS 


RELOAD? 


0514 


04556 


027013 




JMP LDR43 


NO 


0515 


04557 


060135 




LDA IDLEN 


YES 


0516 


04560 


067640 




LDB IDTBA 




0517 


04561 


117725 




JSB MTAPE,! 


READ IN 


0518 


04562 


000000 




OCT 


ID TABLE 


0519 


04563 


027420 




JMP EOFER 




0520 


04564 


027424 




JMP TPERR 




0521 


04565 


060135 




LDA IDLEN 


WRITE 


0522 


04566 


173655 




ST A WORD, I 


ID TABLE 


0523 


04567 


060134 




LDA IDLOC 


TO ITS 


0524 


04570 


067640 




LDB IDTBA 


DISC 


0525 


04571 


117724 




JSB DISCI 


TRACK 


0526* 








* 




0527** LOAD USER LIBRARY 


^* 




0528* 








* 




0529* 












0530* 


THE LIBRARY 


IS STORED ON WAG TAPE AS ONE RECORD PER TRACK UP 


0531* 


TO 5440 WORDS? LONGER TRACKS ARE 


STORED AS TWO RECORDS. THE 


0532* 


TRACK IMAGES 


ARE PRECEDED BY A TABLE OF LENGTH 255, EACH ENTRY 


0533* 


HOLDING THE 


2'S COMPLEMENT OF THE LENGTH OF THE IMAGE IN WORDS 


0534* 


(TRACK 0, DISC IS KNOWN NOT TO 


HAVE ANY USER FILES), AS EACH 


0535* 


TRACK IMAGE 


IS READ AND STORED, 


ITS ENTRY IN THE TABLE IS 


0536* 


REPLACED WITH (NEW 


DISC ADDRESS 


- OLD DISC ADDRESS) FOR USE IN 


0537* 


UPDATING THE 


DIRECTORY BELOW, 




0538* 












0539 


04572 


063541 




LDA M255 


LOAD 


0540 


04573 


073660 




STA TEMPO 




0541 


04574 


067642 




LDB ULTTB 


USER LIBRARY 


0542 


04575 


077661 




STB TEMPI 




0543 


04576 


117725 




JSB MTAPE,! 


TRACK TABLE 


0544 


04577 


000000 




OCT 




0545 


04600 


027420 




JMP EOFER 




0546 


04601 


027424 




JMP TPERR 




0547 


04602 


063600 




LDA B400 


INITIALIZE TO DISC ADDRESS 0,1,0 


0548 


04603 


167661 


LDR32 


LDB TEMPI, I 


USER LIBRARY 


0549 


04604 


006003 




SZB,RSS 


TRACK? 


0550 


04605 


026714 




JMP LDR37 


NO 


0551 


04606 


177655 




STB W0RD,1 


YES, SAVE LENGTH AND 


0552 


04607 


073662 




STA TEMP2 


OLD DISC ADDRESS 


0553 


04610 


101026 




ASR 6 


COMPUTE 


0554 


04611 


077665 




STB COUNT 


SECTOR REQUIREMENT 


0555 


04612 


064137 




LDB ADLEN 


SET 


0556 


04613 


005100 




BRS 


ADT ENTRY 


0557 


04614 


077663 




STB TEWP3 


COUNTER 


0558 


04615 


067637 




LDB ADTBA 




0559 


04616 


006004 




INB 




0560 


04617 


160001 


LDR33 


LDA 1,1 


ENOUGH 


0561 


04620 


043665 




ADA COUNT 


SPACE IN 


0562 


04621 


002021 




SSA,RSS 


THIS ENTRY? 


0563 


04622 


026640 




JMP LDP35 


YES 


0564 


04623 


047551 




ADB ,2 


NO 


0565 


04624 


037663 




ISZ TEMP3 


MORE ENTRIES? 


0566 


04625 


026617 




JMP LDR33 


YES 
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0567 


04626 


063564 


ERRS LDA 


.20 


no 


0568 


04627 


067770 


LDB 


OODSA 


TERMINATE 


0569 


04630 


117723 


JSB 


ASR35,I 


LOADING 


0570 


04631 


027427 


JMP 


ERRIN 




057i 


04632 


160001 


liDR34 LDA 


1,1 


SAVE 


0572 


04633 


073663 


STA 


TEMP3 


DISC ADDRESS 


0573 


04634 


047551 


ADB 


• 2 


ELIMINATE 


0574 


04635 


060001 


LDA 


1 


ENTRY 


0575 


04636 


117734 


JSB 


MOVUA,I 


FROM APT 


0576 


04637 


026652 


JMP 


LDR36 




0577 


04640 


170001 


LDR35 STA 


1,1 


STORE REMAINING SECTOR COUNT 


0578 


04641 


047550 


ADB 


Ml 


ALL OF 


0579 


04642 


002003 


SZh, 


,RSS 


ENTRY USED? 


0580 


04643 


026632 


JHP 


LDR34 


YES 


0581 


04^44 


160G#1 


LDA 


1,1 


no, SAVE 


0582 


04645 


073663 


STA 


TEMP3 


DISC ADDRESS 


0583 


04646 


003004 


CMA, 


,INA 


CORRECT ENTRY TO 


0584 


04647 


043665 


ADA 


COUNT 


DISC ADDRESS OF 


0585 


04650 


003004 


CM A, 


,INA 


REMAINING 


0586 


04651 


170001 


STA 


1,1 


SPACE 


0587 


04652 


063662 


LDR36 LDA 


TEMP2 


COMPUTE 


0588 


04653 


003004 


€MA, 


rINA 


MEW DISC ADDRESS - 


0589 


04654 


043663 


ADA 


TEMP3 


OLD DISC ADDRESS 


0590 


04655 


173661 


STA 


TEMPI, I 


SAVE IN TRACK TABLE 


0591 


04656 


163655 


LDA 


WORD, I 


DOES TRACK 


0592 


04657 


043602 


ADA 


.5440 


EXCEED 


0593 


04660 


002021 


SSA< 


pRSS 


5440 WORDS? 


0594 


04661 


026702 


JMP 


LDREl 


NO 


0595 


04662 


073665 


STA 


COUNT 


YES, SAVE DIFFERENCE 


0596 


04663 


063537 


LDA 


M544n 


SET FOR 


0597 


04664 


173655 


STA 


WORD, I 


INITIAL BLOCK 


0598 


04665 


067640 


LDB 


UPRBA 


READ 


0599 


04666 


117725 


JSB 


MTAPE,I 


5440 


0600 


04667 


000000 


OCT 





WORDS 


0601 


04670 


027420 


JMP 


EOFER 




0602 


04671 


027424 


JMP 


TPERR 




0603 


04672 


063663 


LDA 


TEMP3 


WRITE 


0604 


04673 


067640 


LDB 


UPRBA 


THEM 


0605 


04674 


117724 


JSB 


DISCI 


TO DISC 


0606 


04675 


063665 


LDA 


COUNT 


SET FOR 


0607 


04676 


173655 


STA 


WORD, I 


REST OF TRACK 


0608 


04677 


067663 


LDB 


TEMP3 


ADVANCE 


0609 


04700 


047577 


ADB 


.85 


DISC 


0610 


04701 


077663 


STB 


TEMP3 


ADDRESS 


0611 


04702 


163655 


LDREl LDA 


WORD, I 




0612 


04703 


067640 


LDB 


UPRBA 


READ TRACK 


0613 


04704 


117725 


JSB 


MTAPE,I 


FROM TAPE 


0614 


04705 


000000 


OCT 







0615 


04706 


027420 


JMP 


EOFER 




0616 


04707 


027424 


JMP 


TPERR 




0617 


04710 


063663 


LDA 


TEMP3 




0618 


04711 


067640 


LDB 


UPRBA 


WRITE TRACK 


0619 


04712 


117724 


JSB 


DISCI 


TO DISC 


0620 


04713 


063662 


LDA 


TEMP2 


UPDATE OLD 


0621 


04714 


043600 


LDR37 ADA 


B400 


TRACK ADDRESS 
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0626* 

0627* 

0628* 

0629* 

0630* 

0631* 

0632* 

0633* 

0634* 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 

0661 

0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 

0673 

0674 

0675 

0676 

0677 

0678 

0679 

0680 



* LOAD DIRECTORY 



t 

*♦ 
♦ 



READ IN THE DIRECTORY TRACKS ONE Bt ONE? AN EWP-OF-FILE MARK 
FOLLOWS THE LAST TRACK, USING THE TABLE BUILT ABOVE, CORRECT 
THE DISC ADDRESS IN EACH ENTRY TO THE NEW DISC ADDRESS OF THE 
REFERENCED PROGRAM OR FILE. 



04720 
04721 
04722 
04723 
04724 
04725 
04726 
04727 
04730 
04731 
04732 
04733 
04734 
04735 
04736 
04737 
04740 
04741 
04742 
04743 
04744 
04745 
04746 
04747 
04750 
04751 
04752 
04753 
04754 
04755 
04756 
04757 
04760 
04761 
04762 
04763 
04764 
04765 
04766 
04767 
04770 
04771 
04772 
04773 
04774 
04775 



063575 
073660 
006400 
177643 
174000 
043555 
174000 
043555 
174000 
043555 
174000 
063537 
067640 
117725 
000000 
027011 
027424 
173655 
067664 
006002 
026754 
067660 
047555 
077660 
047554 
164001 
077664 
026743 
173660 
007400 
101023 
073661 
067640 
047554 
160001 
013540 
001727 
043643 
160000 
140001 
170001 
047551 
037661 
026761 
063664 
067640 



LDA 
STA 
CLB 
STB 
STB 
ADA 
STB 
ADA 
STB 
ADA 
STB 

LDR38 LDA 
LDB 
JSB 
OCT 
JMP 
JMP 
STA 
LDB 

LDR39 SZB 
JMP 
LDB 
ADB 
STB 
ADB 
LDB 
STB 
JMP 

LDR40 STA 
CCB 
ASR 
STA 
LDB 

LDR41 ADB 
LDA 
AND 
ALF 
ADA 
LDA 
ADA 
STA 
ADB 
ISZ 
JNP 
LDA 
LDB 



DIREA 
TEMPO 

ULTMl,! 
0,1 
.7 
0,1 

• 7 
0,1 
*7 
0,1 
W5440 
UPRBA 
MTAPE,! 


LDR42 
TpERR 
WORD, I 
TEMP4 

LDR40 
TEMPO 
.7 
TEMPO 

• 6 

1,1 
TEMP4 
LDR39 
TEMPO, I 

3 

TEMPI 
UPRBA 
.6 

1,1 
M256 
,ALF 
ULTMl 
0,1 
1,1 
1,1 

TEMPI 
LDR41 
TEMP4 
UPRBA 



INITIALIZE POINTER TO 
DIREC TABLE ENTRY 



LIBRARY TABLE CC3 



COMPLETE USERS 
SET LENGTHS 

OF ALL 



DIRECTORY TRACKS 

TO ZERO 
READ A 

DIRECTORY 
TRACK 

NONE FOUND 

SAVE LENGTH 
AVAILABLE 

TRACK? 
YES 
NO, MOVE 

TO NEXT 

DIREC ENTRY 
SAVE ITS 

DISC 

ADDRESS 

RECORD LENGTH IN DIREC ENTRY 
SAVE 

COUNT OF 
ENTRIES 
INITIALIZE ENTRY POINTER 
LOAD ENTRY'S 

DISC ADDRESS 
LOAD THE 

TRACK TABLE 
ENTRY THAT 
CORRESPONDS 
COMPUTE AND RECORD 

NEW DISC ADDRESS 
UPDATE ENTRY POINTER 
MORE ENTRIES? 
YES 
NO 
WRITE DIRECTORY 
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0681 


04776 


117724 




JSB DISCI 


TO DISC 


0682 


04777 


063547 




LDA M4 


READ 


0683 


05000 


173655 




STA WORD, I 


FIRST FOUR 


0684 


05001 


063664 




LDA TEMP4 


WORDS OF 


0685 


05002 


067660 




LDB TEMPO 


DIRECTORY 


0686 


05003 


006004 




INB 


INTO 


0687 


05004 


047603 




ADB BIT15 


DIREC TABLE 


0688 


05005 


117724 




JSB DISCI 




0689 


05006 


002400 




CLA 


SET TRACK 


0690 


05007 


073664 




STA TEMP4 


UNAVAILABLE 


0691 


05010 


026733 




JMP LDR38 




0693 


05011 


053572 


LDR42 


CPA B40 


END-OF-FILE? 


0694 


05012 


027420 




JMP EOFER 


NO 


0695* 








^ 




0696** WRITE ADT TO DISC 


** 




0697* 








♦ 




0698* 












0699* 


IF INSUFFICIENT ROOM EXISTS ON 


THE TDT/ADT TRACK, ELIMIN 


0700* 


ENOUGH ADT ENTRIES 


OF NON-ZERO 


LENGTHS TO FORCE A FIT, 


0701* 












0702 


05013 


060135 


LDR43 


LDA IDLEN 


COMPLITE # OF 


0703 


05014 


013542 




AND H64 


EXTRA WORDS 


0704 


05015 


043602 




ADA ,5440 


ON IDT/ADT 


0705 


05016 


040137 




ADA ADLEN 


TRACK 


0706 


05017 


002021 




SSA,RSS 


NEGATIVE? 


0707 


05020 


027037 




JMP LDR45 


NO 


0708 


05021 


001100 




ARS 


YES, SAVE COUNT OF 


0709 


05022 


073660 




STA TEMPO 


EXCESS ADT ENTRIES 


0710 


05023 


063637 




LDA ADTBA 




0711 


05024 


002004 


LDR44 


INA 


LOAD 


0712 


05025 


164000 




LDB 0,1 


SECTOR LENGTH 


0713 


05026 


002004 




INA 


OF ADT ENTRY 


0714 


05027 


006003 




SZB,RSS 


NON-ZERO? 


0715 


05030 


027024 




JMP LDR44 


NO 


0716 


05031 


073661 




STA TEMPI 


YES, SAVE ADT POINTER 


0717 


05032 


064000 




LDB 


ELIMINATE 


0718 


05033 


117734 




JSB MOVUA,! 


ENTRY 


0719 


05034 


063661 




LDA TEMPI 


RETRIEVE POINTER 


0720 


05035 


037660 




JSZ TEMPO 


ENOUGH ENTRIES DELETED? 


0721 


05036 


027024 




JMP LDR44 


NO 


0722 


05037 


064135 


LDR45 


LDB IDLEN 


YES 


0723 


05040 


101026 




ASR 6 


COMPUTE 


0724 


05041 


007004 




CMB,INB 


ADT 


0725 


05042 


044134 




ADB IDLOC 


DISC 


0726 


05043 


060001 




LDA 1 


ADDRESS 


0727 


05044 


070136 




STA ADLOC 


RECORD IT 


0728 


05045 


064137 




LDB ADLEN 


WRITE 


0729 


05046 


177655 




STB WORD, I 


ADT 


0730 


05047 


067637 




LDB ADTBA 


TO 


0731 


05050 


117724 




JSB DISCI 


DISC 


0732* 












0733 


05051 


003400 




CCA 


INITIALIZE 


0734 


05052 


073667 




STA SYSLF 


SYSTEM LIBRARY 


0735 


05053 


073670 




STA SYSLF+1 


FLAGS 



1979 
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0736 05054 063666 

0737 05055 003026 

0738 05056 027146 



LDA MTFLG 
CMA,SSA,INA,SZA 
JMP LDR50 YES 



LOADING FROM 
MAG TAPE? 
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0740* 












t 


0741** LOAD SYSTEM 


FROM 


PAPER TAPE ** 


0742* 












* 


0743* 














0744* 


READS THE TSB SYSTEM TAPE, OR TAPES IE MORE THAN QUE (EXECUTING 


0745* 


A HLT 77 ON 1 


RECOGNIZING AN END- 


-OF-TAPE CONDITION). THE LAST 


0746* 


RECORD IS IDENTIFIED BY AN ORIGIN OF 0. CHECKSUM'S ARE 


0747* 


COMPUTED FOR 


EACH 


RECORD: A FAILURE MAY RETRIED BY BACKING UP 


0748* 


TO THE START 


OF THE RECORD, THE CORE TO BE OCCUPIED BY EACH 


0749* 


RECORD IS CHECKED 


AGAINST A TABLE OF ADMISSABLE AREAS TO HELP 


0750* 


CATCH ORIGIN 


MIS-READS 


BEFORE LOADING A RECORD, RECOVERY 


0751* 


MAY BE ATTEMi 


PTED BY BACKING UP 


TO THE BEGINNING OF THE RECORD. 


0752* 














0753 


05057 


002401 


LDR46 


CLA, 


,RSS 


SET FOR START OF TARE 


0754 


05060 


063546 




LDA 


MIO 


SET FOR EUD-OF-TAPE CHECK 


0755 


05061 


002300 




CCE 




GET RECORD'S 


0756 


05062 


117735 


LDR47 


JSB 


RE AD A, I 


WORD COUNT 


0757 


05063 


007306 




CMB, 


,CCE,INB, 


,SZB AS NEGATIVE 


0758 


05064 


027074 




JMP 


LDR4e 




0759 


05065 


002006 




INA, 


rSZA 


FEED FRAME, END-OF-TAPE? 


0760 


05066 


027062 




JMP 


LDR47 


NO 


0761 


05067 


063560 




LDA 


.13 


YES 


0762 


05070 


067756 




LDB 


EOTMA 


PRINT 


0763 


05071 


117723 




JSB 


ASR35,I 


'END OF TAPE' 


0764 


05072 


102077 




HLT 


77B 


WAIT FOR NEXT TAPE 


0765 


05073 


027057 




JMP 


LDR46 




0766 


05074 


077665 


LDR48 


STB 


COUNT 


SAVE WORD COUNT 


0767 


05075 


007000 




CMB 




SAVE TRUE 


0768 


05076 


077661 




STB 


TEMPI 


WORD COUNT -1 


0769 


05077 


117735 




JSB 


READA,I 


SKIP FEED FRAME 


0770 


05100 


117735 




JSB 


READA,! 


READ LOAD ORIGIN 


0771 


05101 


006003 




SZB, 


rRSS 


ZERO ORIGIN? 


0772 


05102 


027203 




JMP 


LDR54 


YES 


0773 


05103 


060001 




LDA 


1 


NO, INITIALIZE CHECKSUM COUNTER 


0774 


05104 


077660 




STB 


TEMPO 


SAVE 


0775 


05105 


077663 




STB 


TEMP3 


ORIGIN 


0776 


05106 


057636 




CPB 


LNKAD 


SYSTEM LINKAGE ADDRESSES? 


0777 


05107 


027114 




JMP 


LDR49 


YES 


0778 


05110 


117727 




JSB 


ADVLA,! 


NO, VALIDATE ORIGIN 


0779 


05111 


064000 




LDB 





COMPUTE LAST ADDRESS 


0780 


05112 


047661 




ADB 


TEMPI 


TO BE LOADED 


0781 


05113 


117727 




JSB 


ADVLA,! 


VALIDATE IT 


0782 


05114 


052001 


LDR49 


CPA 


LIBRA 


SYSTEM LIBRARY PROGRAM? 


0783 


05115 


017434 




JSB 


SYSLB 


YES 


0784 


05116 


000040 




CLE 




READ A 


0785 


05117 


117735 




JSB 


READA, I 


WORD 


0786 


05120 


040001 




ADA 


1 


ADD TO CHECKSUM COUNTER 


0787 


05121 


177660 




STB 


TEMPO, I 


STORE WORD 


0788 


05122 


037660 




ISZ 


TEMPO 


ADVANCE ADDRESS 


0789 


05123 


037665 




ISZ 


COUNT 


RECORD ALL READ? 


0790 


05124 


027116 




JMP 


LDR49+2 


NO 


0791 


05125 


000040 




CLE 




YES 


0792 


05126 


117735 




JSB 


READA, I 


READ CHECKSUM 


0793 


05127 


054000 




CPB 





DO CHECKSUMS AGREE? 


0794 


05130 


027060 




JMP 


LDR46+1 


YES 
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0795 


05131 


073661 




STA 


TEMPI 


NO, SAVE 


0796 


05132 


077662 




STB 


TEMP2 


REGISTERS 


0797 


05133 


007400 




CCB 






0798 


05134 


063663 




LDA 


TEMP3 


FIRST RECORD OF 


0799 


05135 


052001 




CPA 


LIBRA 


SYSTEM LIBRARY PROGRAM? 


0800 


05136 


077670 




STB 


SYSLF+1 


YES, PROTECT AGAINST SPURIOUS 


0801 


05137 


063562 




LDA 


• 17 


CALL TO SYSLB 


0802 


05140 


067757 




LDB 


CHKSA 


PRINT 


0803 


05141 


117723 




JSB 


ASR35,T 


'CHECKSUM ERROR' 


0804 


05142 


063661 




LDA 


TEMPI 


LOAD RESISTERS 


0805 


05143 


067662 




LDB 


TEMP2 


FOR DISPLAY 


0806 


05144 


102066 




HLT 


66B 


WATT FOR REREAD ATTEMPT 


0807 


05145 


027057 




JMP 


LDR46 




0808* 










* 




0809^* L&AD SYST'EM 


FROM 


MAG TAPE ** 




0810* 










* 




0811* 














0812* 


READ 


THE TABLE OF 


SYSTEM RECORDS 


, THEN READ IN THE RECORDS 


0813* 


THEMSELVES (COMPRISING 


THE CORE-i 


RESIDENT TSB SYSTEM). NEXT 


0814* 


READ 


THE SYSTEM LIBRARY PROGRAMS 


ONE BY ONE, TERMINATING WITH 


0815* 


AN END-OF-FILE. 








0816* 














0817 


05146 


002400 


LDR50 


CLA 




TURN OFF 


0818 


05147 


073670 




STA 


SYSLF+1 


PAPER TAPE FLAG 


0819 


05150 


063540 




LDA 


M256 


LOAD 


0820 


05151 


067646 




LDB 


MTRLA 




0821 


05152 


077664 




STB 


TEMP4 


TABLE 


0822 


05153 


002001 




RSS 






0823 


05154 


037664 


LDR51 


ISZ 


TEMP4 




0824 


05155 


117725 




JSB 


MTAPE^I 


LOAD 


0825 


05156 


000000 




OCT 





RECORD 


0826 


05157 


027420 




JMP 


EOFER 




0827 


05160 


027424 




JMP 


TPERR 




0828 


05161 


037664 




ISE 


TEMP4 


PREPARE FOR NEXT 


0829 


05162 


104200 




DLD 


TEMP4,I 


SYSTEM SEGMENT 


0830 


05164 


137646 




ISZ 


MTRLA,! 


ALL SEGMENTS READ? 


0831 


05165 


027154 




JMP 


LDR51 


NO 


0832 


05166 


063540 


LDR52 


LDA 


M256 


YES 


0833 


05167 


066001 




LDB 


LIBRA 


READ 


0834 


05170 


117725 




JSB 


MTAPE,I 


SXSTEM LIBRARY 


0835 


05171 


000000 




OCT 





PROGRAM 


0836 


05172 


027176 




JMP 


LDR53 


END-OF-FILE/END-OF-TAPE 


0837 


05173 


027424 




JMP 


TPERR 




0838 


05174 


017434 




JSB 


SYSLB 


WRITE TO DISC 


0839 


05175 


027166 




JMP 


LDR52 




0840 


05176 


053572 


LDR53 


CPA 


B40 


END-0F»FILE? 


0841 


05177 


027420 




JMP 


EOFER 


NO 


0842 


05200 


117725 




JSB 


MTAPE,I 


YES, REWIND 


0843 


05201 


000005 




OCT 


5 


AND STANDBY 


0844 


05202 


002001 




RSS 






0845 


05203 


017434 


LDR54 


JSB 


SYSLB 


TRANSFER LAST PAPER TAPE PROG 
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0847* 








^ 




0848** INITIALIZE USER SWAP AREAS ** 




0849* 








* 




0850* 












0851* 


FOR EACH USER PORT 


, INITIALIZE THE SWAPPING PORTION OF THE 


0852* 


LANGUAGE PROCESSOR 


, WRITE IT TO 


THE APPROPRIATE SWAP TRACK, 


0853* 


AND INITIALIZE THE 


TELETYPE TABLE ENTRY CORRESPONDINGLY. 


0854* 












0855 


05204 


063544 


LDA 


M16 


SET FOR 


0856 


05205 


073660 


STA 


TEMPO 


16 USERS 


0857 


05206 


062004 


LDA 


TTTDA 


FOR DISC ADDRESS 


0858 


05207 


073661 


STA 


TEMPI 


IN TTYOO 


0859 


05210 


063645 


LDA 


USTRA 


POINTER TO 


0860 


05211 


073662 


STA 


TEMP2 


FIRST USER TRACK ADDRESS 


0861 


05212 


002400 


CLA 




INCREMENT FROM TTYOO 


0862 


05213 


073663 


STA 


TEMP3 


TO CURRENT TTY TABLE 


0863 


05214 


062013 LDR58 


LDA 


Si^PIA 


SWAP AREA COMPILER QUANTITIES 


0864 


05215 


066005 


LDB 


?MASK 


LOAD 


0865 


05216 


047663 


ADB 


TEMP3 


USER 


0866 


05217 


164001 


LDB 


1,1 


BIT MASK 


0867 


05220 


174000 


STB 


0,1 


RECORD IT 


0868 


05221 


002004 


INA 




RECORD 


0869 


05222 


007000 


CMB 




COMPLEMENT 


0870 


05223 


174000 


STB 


0,1 


MASK 


0871 


05224 


002004 


INA 






0872 


05225 


066006 


LDB 


?BHED 


RECORD ADDRESS OF 


0873 


05226 


047663 


ADB 


TEWP3 


CHARACTER ADDRESS 


0874 


05227 


174000 


STB 


0,1 


OF LOGICAL BUFFER 


0875 


05230 


002004 


INA 






0876 


05231 


066007 


LDB 


?BSTR 


RECORD ADDRESS OF ADDRESS OF 


0877 


05232 


047663 


ADB 


TEMP3 


LAST CHARACTER +1 


0878 


05233 


174000 


STB 


0,1 


OF LOGICAL BUFFER 


0879 


05234 


002004 


INA 






0880 


05235 


066010 


LDB 


?BGIN 


RECORD ADDRESS OF 


0881 


05236 


047663 


ADB 


TEMP3 


CHARACTER ADDRESS 


0882 


05237 


174000 


STB 


0,1 


OF PHYSICAL BUFFER 


0883 


05240 


002004 


INA 






0884 


05241 


066011 


LDB 


?BEND 


RECORD ADDRESS OF ADDRESS OF 


0885 


05242 


047663 


ADB 


TEWP3 


LAST CHARACTER+1 


0886 


05243 


174000 


STB 


0,1 


OF PHYSICAL BUFFER 


0887 


05244 


002004 


INA 






0888 


05245 


066012 


LDB 


?ID 


LOAD ADDRESS OF 


0889 


05246 


047663 


ADB 


TEMP3 


ID/NAME 


0890 


05247 


174000 


STB 


0,1 


RECORD IT 


0891 


05250 


067663 


LDB 


TEMP3 


UPDATE 


0892 


05251 


046003 


ADB 


INCRE 


TOTAL 


0893 


05252 


077663 


STB 


TEWP3 


INCREMENT 


0894 


05253 


163662 


LDA 


TEWP2,I 


RECORD 


0895 


05254 


037662 


ISZ 


TEMP2 


DISC ADDRESS 


0896 


05255 


173661 


STA 


TEMPI, I 


IN TTY TABLE 


0897 


05256 


067661 


LDB 


TEWpi 


UPDATE TTY TABLE 


0898 


05257 


046003 


ADB 


INCRE 


POINTER TO 


0899 


05260 


077661 


STB 


TEMPI 


DISC ADDRESS 


0900 


05261 


066014 


LDB 


SWPLN 


WRITE 


0901 


05262 


177655 


STB 


WORD, I 


SWAP 
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0902 


05263 


066015 




LDB 


SWPAA 


AREA 


0903 


05264 


117724 




JSB 


DISCI 


TO DISC 


0904 


05265 


037660 




ISZ 


TEMPO 


ALL DONE? 


0905 


05266 


027214 




JMP 


LDR58 


NO 


0906* 










* 




0907** WRITE SYSTEM TO DISC 


** 




0908* 










^ 




0909* 














0910* 


DUMP 


THE CORE-RESIDENT 


TSB SYSTEM TO THE DISC FOR POTENTIAL 


091i* 


BOOTSTRAP LOADING. 








0912* 














0913 


05267 


163650 




LDA 


BSYIA,! 


WRITE 


0914 


05270 


173655 




STA 


WORD, I 




0915 


05271 


063552 




LDA 


.3 




0^ 1 6 


05^72 


0^6400 




CLB 




SYSTEM 


0917 


05273 


117724 




JSB 


DISCI 




0918 


05274 


163651 




LDA 


BSY2A,I 




0919 


05275 


173655 




STA 


WORD, I 


TO 


0920 


05276 


063676 




LDA 


TRKTB 




0921 


05277 


067653 




LDB 


RSYAl 




0922 


05300 


117724 




JSB 


DISCI 


DISC 


0923 


05301 


163652 




LDA 


BSY3A,I 




0924 


05302 


173655 




STA 


WORD, I 




0925 


05303 


063677 




LDA 


TRKTB+1 




0926 


05304 


067654 




LDB 


RSYA2 




0927 


05305 


117724 




JSB 


DISCI 




0928* 








* 






0929** GET 


DATE AND TIME 


♦ * 






0930* 








* 






0931* 














0932* 


THE DISC-RESIDENT 


TSB BOOTSTRAP 


LOADER TRANSFERS HERE AFTER 


0933* 


LOADING TSB 


FROM THE DISC, THIS 


SECTION REQUESTS THE DATE 


0934* 


AND TIME OF 


DAY FOR THE INTERNAL 


CLOCKING ROUTINES. 


0935* 














0936 


05306 


063556 


LDR59 


LDA 


.8 


PRINT 


0937 


05307 


067760 




LDB 


DATEA 




0938 


05310 


117723 




JSB 


ASR35,I 


'DATE?' 


0939 


05311 


002400 




CLA 




GET 


0940 


05312 


117723 




JSB 


ASR35,I 


RESPONSE 


0941 


05313 


117732 




JSB 


INTGA,T 


GET DAY OF YEAR 


0942 


05314 


073660 




STA 


TEMPO 


SAVE FOLLOWING CHARACTER 


0943 


05315 


006003 




SZB, 


pRSS 


NON-ZERO? 


0944 


05316 


027332 




JMP 


ERR6 


NO 


0945 


05317 


060001 




LDA 


1 


YES 


0946 


05320 


047620 




ADB 


MXDAY 




0947 


05321 


006021 




SSB, 


-RSS 


< 367 ? 


0948 


05322 


027332 




JMP 


ERR6 


NO 


0949 


05323 


006400 




CLB 




YES 


0950 


05324 


100200 




MPY 


• 24 


CONVERT 


0951 


05326 


172016 




STA 


DATE, I 


TO HOURS 


0952 


05327 


063660 




LDA 


TEMPO 


'\' 


0953 


05330 


053605 




CPA 


SLSH 


NEXT? 


0954 


05331 


027336 




JMP 


LDR60 


YES 


0955 


05332 


063561 


ERR6 


LDA 


.15 


NO, PRINT 


0956 


05333 


067761 




LDB 


ILDTA 


'ILLEGAL 
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0957 

0958 

0959 

0960 

0961 

0962 

0963 

0964 

0965 

0966 

0967 

0968 

0969 

0970 

0971 

0972 

0973 

0974 

0975 

0976 

0977 

0978 

0979 

0980 

0981 

0982 

0983 

0984 

0985 

0986 

0987 

0988 

0989 

0990 

0991* 

0992** 

0993* 

0994* 

0995* 

0996* 

0997* 

0998* 

0999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 



05334 
05335 
05336 
05337 
05340 
05341 
05342 
05343 
05344 
05345 
05346 
05347 
05350 
05351 
05352 
05353 
05354 
05355 
05356 
05357 
05360 
05361 
05362 
05364 
05365 
05366 
05367 
05370 
05371 
05372 
05373 
05374 
05375 
05376 



117723 
027306 
117732 
053560 
002001 
027332 
176020 
047621 
006021 
027332 
063556 
067762 
117723 
002400 
117723 
117740 
177750 
077660 
117740 
177704 
060001 
006400 
100200 
043623 
172017 
117741 
027374 
063561 
067763 
117723 
027346 
067660 
146016 
176016 



JSB 
JMP 

I1DR6O asB 
CPA 
RSS 
JMP 
STB 
ADB 
SSB 
JMP 

LDR61 LDA 
liDB 
JSB 
CLA 
J-S-B- 
JSB 
DEC 
STB 
JSB 
DEC 
liDA 
CliB 
MPY 
ADA 
STA 
JSB 
JMP 

ERR7 LDA 
LDB 
JSB 
JMP 

LDR62 LDB 
ADB 
STB 



INITIATE TIMESHARING 



ASR35,I 
LDR59 
INTGA,I 
Bi5 

ERR6 

YEAR, I 

MAXYR 

RSS 

ERR6 

.8 

TIMEA 

ASR35,I 

ASR35>I 

TWODA,! 

-24 

TEMPO 

TW0DA,I 

-60 

1 

.600 

MBIAS 

TIME, I 

GETCA,! 

LDR62 

.15 

ILTIA 

ASR35,I 

LDR61 

TEMPO 

DATErl 

DATE, I 



DATE' 

GET YEAR 

MORE CHARACTERS? 

MO 

YES 

RECORD YEAR 

< 100 ? 
NO 
YES 
REQUEST 

TIME OF DAY 
GET 

RESPONSE 
GET TWO-DIGIT 

INTEGER < 24 
SAVE IT 
GET TWO-DIGIT 

INTEGER < 60 
CONVERT 

TO TENTHS 
OF SECONDS 
SAVE in SPECIAL 

INTERNAL FORM 
EXTRANEOUS DIGITS? 
NO 
YES 
PRINT 

ERROR 



CORRECT 

HOUR OF YEAR 



CC3 



IF A PHONES BOARD EXISTS, IT IS TURNED ON. POWER FAIL, SET TO 
HALT DURING LOADING, IS SET TO THE POWER FAIL ROUTINE IN THE 
SYSTEM, FINALLY, CONTROL TRANSFERS TO TSB. 



05377 
05400 
05401 
05402 
05403 
05404 
05405 
05406 
05407 
05410 
05411 
05412 
05413 



060165 
002003 
027415 
064000 
033630 
172022 
060001 
033631 
172023 
067632 
176024 
073413 
000000 



LDA PHNSC 


PHONES 


SZA,RSS 


BOARD? 


JMP LDR63 


NO 


LDB 


YES 


I OR PHI 


CREATE 


STA PHIN1,I 




LDA 1 




lOR PH2 


APPROPRIATE 


STA PHIN2,I 




LDB RSSA 




STB PHIN3,I 


INSTRUCTIONS 


STA *-H 


EXECUTE 


NOP 


LAST ONE 
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1979 



1012 05414 172025 

1013 05415 062026 

1014 05416 070004 

1015 05417 126021 



STA PHtN4,I 
LDR63 LDA PWRFL 
STA 4 
JMP TSB,X 



SET UP PHONES STATUS 
SET POWER-FAIL 

INTERRUPT LINK 
RUN 
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1017* 






* 








1018** TAPE ERRORS 


♦ * 








1019* 






♦ 








1020 


05420 


063573 


EOFER 


LDA 


• 38 


MO RECORD 


1021 


05421 


067764 




LDB 


EOFMA 


WHERE 


1022 


05422 


117723 




JSB 


ASR35,I 


EXPECTED 


1023 


05423 


027427 




JMP 


ERRIN 


TERMINATE LOADING 


1024* 














1025 


05424 


063566 


TPERR 


liDA 


,22 


TIMING 


1026 


05425 


067765 




LDB 


TAPEA 


OR PARITY 


1027 


05426 


117723 




JSB 


ASR35,I 


ERROR 


1028* 














1029 


05427 


063564 


ERRIN 


LDA 


.20 


OUTPUT 


1030 


05430 


067766 




LDB 


LABOA 


TERMINATION 


1031 


05431 


117723 




JSB 


ASR35,I 


M^ESSAGE 


1032 


05432 


102001 




HLT 


1 


IRRECOVERABLE 


1033 


05433 


027432 




JHP 


*-l 


HALT 
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1035* 












* 


1036** RECORD SYSTEM LIBRARY 


PROGRAM 


** 


1037* 












* 


1038* 














1039* 


UPON 


FIRST ENTRY 


SYSLF 


= -1 AND 


SYSLF+1 = "1 FOR A PAPER TAPE 


1040* 


LOAD 


OR FOR A 1 


WAG TAPE LOAD, 


MAG TAPE LOADS CALL SYSLB AFTER 


1041* 


LOADING A SYSTEM 


LIBRARY PROGRAM TO STORE IT ONTO THE DISC; 


1042* 


PAPER TAPE LOADS 


CALL SYSLB BEFORE LOADING A SYSTEM LIBRARY 


1043* 


PROGRAM TO STORE 


THE PRECEDING 


ONE ONTO THE DISC, HENCE THE 


1044* 


FIRST CALL MUST i 


BE 


IGNORED. THE FIRST SYSTEM LIBRARY PROGRAM, 


1045* 


A TABLE or LENGTHS 


IN WORDS OF 


THE SYSTEM LIBRARY PROGRAMS, 


1046* 


IS COPIED INTO A 


CORE-RESIDENT 


TABLE, AS EACH PROGRAM Is STORED 


1047* 


OMTO 


THE DISC, ITS 


DISC ADDRESS 


REPLACES ITS LENGTH IN THIS 


1048* 


TABLE, WHICH BECOMES THE LINKAGE BETWEEN TSB AND THE SYSTEM 


1049* 


LIBI?A:PY. WHILE , 


SWRC15] 


1 IS 'UP' 


, THE LOADER HALTS TO ALLOW 


1050* 


PATCHING JUST BEFORE WRITING EACH PROGRAM ONTO THE DISC. 


1051* 














1052 


05434 


000000 SYSLB 


NOP 






1053 


05435 


037670 




tsz 


SYSLF+1 


FIRST CALL FROM PAPER TAPE LOAD? 


1054 


05436 


002001 




RSS 




NO 


1055 


05437 


127434 




JMP 


SYSLB, I 


YES 


1056* 














1057 


05440 


106501 




LIB 


1 


DEBUGGING AID: 


1058 


05441 


006020 




SSB 




HLT 15B BEFORE SYSLIB PROGRAM 


1059 


05442 


102015 




HLT 


15B 


GOES TO DISC IF SwR(15) = 1 


1060 


05443 


002400 




CLA 






1061 


05444 


053667 




CPA 


SYSLF 


FIRST SYSTEM LIBRARY PROGRAM? 


1062 


05445 


027472 




JMP 


SYSL2 


NO 


1063* 














1064 


05446 


162001 




LDA 


LIBRA, I 


YES 


1065 


05447 


073667 




STA 


SYSLF 


SET MOVE COUNTER 


1066 


05450 


066002 




LDB 


C0M6 


SET 


1067 


05451 


077675 




STB 


SLDIR 


TABLE POINTER 


1068 


05452 


062001 




LDA 


LIBRA 


SET POINTER TO 


1069 


05453 


073664 




STA 


TEMP4 


ADDRESS TABLE 


1070 


05454 


163664 SYSLl 


LDA 


TEMp4,I 


COPY 


1071 


05455 


170001 




STA 


1,1 


LENGTH 


1072 


05456 


037664 




ISZ 


TEMP4 


TABLE 


1073 


05457 


006004 




INB 




INTO 


1074 


05460 


037667 




ISZ 


SYSLF 


ADDRESS 


1075 


05461 


027454 




JMP 


SYSLl 


TABLE 


1076 


05462 


063700 




LDA 


TRKTBt2 


SET DISC ADDRESSES OF 


1077 


05463 


073671 




STA 


SYSTl 




1078 


05464 


117733 




JSB 


IS0TA,I 


SYSTEM LIBRARY TRACKS AND 


1079 


05465 


073673 




STA 


SYSSl 




1080 


05466 


063701 




LDA 


TRKTB4-3 


# OF SECTORS AVAILABLE 


1081 


05467 


073672 




STA 


SYST2 




1082 


05470 


117733 




JSB 


ISOTA,! 


ON EACH ONE 


1083 


05471 


073674 




STA 


SYSS2 




1084* 














1085 


05472 


067540 SYSL2 


LDB 


M256 


SET WORD COUNT 


1086 


05473 


177655 




STB 


WORD, I 


FOR DISC TRANSFER 


1087 


05474 


167675 




LDB 


SLDIR, I 


COMPUTE # OF 


1088 


05475 


101026 




ASR 


6 


SECTORS NEEDED 


1089 


05476 


063547 




LDA 


M4 


ROOM ON 
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1090 


05477 


043673 


ADA 


SYSSl 


FIRST 


1091 


05500 


002020 


SSA 




TRACK? 


1092 


05501 


027517 


JMP 


SySL5 


MO 


1093 


05502 


060001 


liDA 


1 


YES, UPDATE 


1094 


05503 


043673 


ADA 


SYSSl 


REMAINING 


1095 


05504 


073673 


STA 


SYSSl 


SECTOR COUNT 


1096 


05505 


063671 


LDA 


SYSTl 


LOAD DISC ADDRESS 


1097 


05506 


007004 


CMB, 


rINB 


SAVE 


1098 


05507 


047671 


ADB 


SYSTl 


DISC ADDRESS OF 


1099 


05510 


077671 


STB 


SYSTl 


REMAINING SPACE 


1100 


05511 


173675 


SySL4 STA 


SLDXR,I 


SAVE DISC ADDRESS 


1101 


05512 


037675 


ISZ 


SLDIR 


IN LOADER TABLE 


1102* 












1103 


05513 


066001 


LDB 


LIBRA 


WRITE PROGRAM 


1104 


05514 


117724 


J^B 


DISCI 


TO DISC 


1105 


05515 


062001 


LDA 


LIBRA 




1106 


05516 


127434 


JMP 


SYSLB,I 




1107 


05517 


063547 


SYSL5 LDA 


M4 


HANDLE 


1108 


05520 


043674 


ADA 


SYSS2 




1109 


05521 


002020 


SSA 




SECOND 


1110 


05522 


027533 


JMP 


SYSL6 




nil 


05523 


060001 


LDA 


1 


TRACK 


1112 


05524 


043674 


ADA 


SYSS2 




1113 


05525 


073674 


STA 


SYSS2 




1114 


05526 


063672 


LDA 


SYST2 




1115 


05527 


007004 


CNB, 


rINB 




1116 


05530 


047672 


ADB 


SYST2 




1117 


05531 


077672 


STB 


SYST2 




1118 


05532 


027511 


JHP 


S¥SL4 




1119 


05533 


063571 


SYSL6 LDA 


.26 


OUTPUT 


1120 


05534 


067767 


LDB 


SYSLA 


OVERFLOW 


1121 


05535 


117723 


JSB 


ASR35,I 


MESSAGE 


1122 


05536 


027427 


JMP 


ERRIN 


TERMINATE LOADING 
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1124 


05537 


165300 


M5440 


DEC 


-5440 




1125 


05540 


177400 


M256 


DEC 


-256 




1126 


05541 


177401 


M255 


DEC 


-255 




1127 


05542 


177700 


M64 


DEC 


-64 




1128 


05543 


177754 


M20 


DEC 


-20 




1129 


05544 


177760 


M16 


DEC 


•16 




1130 


05545 


177764 


M12 


DEC 


-12 




1131 


05546 


177766 


MIO 


DEC 


-10 




1132 


05547 


177774 


M4 


DEC 


-4 




1133 


05550 


177777 


Ml 


DEC 


-1 




1134 


05551 


000002 


.2 


DEC 


2 




1135 


05552 


000003 


.3 


DEC 


3 




1136 


05553 


000004 


.4 


DEC 


4 




1137 


05554 


000006 


.6 


DEC 


6 




1138 


05555 


000007 


.7 


DEC 


7 




1139 


05556 


000010 


.8 


DEC 


8 




1140 


05557 


000014 


• 12 


DEC 


12 




1141 


05557 




B14 


EQU 


.12 




1142 


05560 


000015 


.13 


DEC 


13 




1143 


05560 




B15 


EQU 


.13 




1144 


05561 


000017 


.15 


DEC 


15 




1145 


05562 


000021 


.17 


DEC 


17 




1146 


05563 


000023 


.19 


DEC 


19 




1147 


05564 


000024 


.20 


DEC 


20 




1148 


05565 


000025 


.21 


DEC 


21 




1149 


05566 


000026 


.22 


DEC 


22 




1150 


05567 


000027 


.23 


DEC 


23 




1151 


05570 


000030 


.24 


DEC 


24 




1152 


05571 


000032 


.26 


DEC 


26 




U53 


05572 


000040 


.32 


DEC 


32 




1154 


05572 




B40 


EQU 


.32 




1155 


05573 


000046 


.38 


DEC 


38 




1156 


05574 


000060 


B6Q 


OCT 


60 




1157 


05575 


000100 


BlOO 


OCT 


100 




1158 


05576 


000106 


B106 


OCT 


106 




1159 


05577 


000125 


.85 


DEC 


85 




1160 


05600 


000400 


B400 


OCT 


400 




1161 


05601 


001130 


.600 


DEC 


600 




1162 


05602 


012500 


.5440 


DEC 


5440 




1163 


05603 


100000 


BIT15 


OCT 


100000 




1164 


05604 


000054 


COMMA 


OCT 


54 




1165 


05605 


000057 


SLSH 


OCT 


57 


V 


1166 


05606 


000101 


A 


OCT 


101 


'A' 


1167 


05607 


000103 


C 


OCT 


103 


'C 


1168 


05610 


000104 


D 


OCT 


104 


'D' 


1169 


05611 


000111 


I 


OCT 


111 


'I' 


1170 


05612 


000114 


L 


OCT 


114 


'L' 


1171 


05613 


000116 


N 


OCT 


116 


'N' 


1172 


05614 


000117 





OCT 


117 


'0' 


1173 


05615 


000123 


S 


OCT 


123 


'S' 


1174 


05616 


000125 


U 


OCT 


125 


'U' 


1175 


05617 


000131 


y 


OCT 


131 


'Y' 


1176 


05620 


177221 


MXDAY 


DEC 


-367 


J'S 


1177 


05621 


177634 


MAXYR 


DEC 


-100 


I'S 


1178 


05622 


177713 


EOTLN 


DEC 


-53 


LEN 



COMPT.EMENT OF MAXIMUM DAY 
COMPLEMES^T OF MAXIMUM YEAR 
GTH OF EQUIPMENT TABLE 
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1181 


05624 


106615 


0TB15 


0TB 


15B 


1182 


05625 


102714 


STC14 


STC 


14B 


U83 


05626 


102515 


L1A15 


LIA 


15B 


1184 


05627 


020014 


LINKA 


OCT 


20014 


1185* 












1186 


05630 


102600 


PHI 


OTA 





1187 


05631 


102500 


PH2 


hlh 





1188 


05632 


002001 


RSSA 


RSS 




1189* 












1190 


05575 




EQTA 


EQU 


BlOO 


1191 


05633 


100100 


CEOTA 


OCT 


100100 


1192 


05553 




DEOTA 


EQU 


.4 


1193 


05575 




DIREA 


EQU 


BlOO 


1194 


05576 




DIRE6 


EQU 


B106 


1195 


05634 


00O140 


TRAXA 


DEF 


TRAX 


1196 


05635 


000160 


DTBLA 


DEF 


DTBL 


1197 


05636 


004001 


LNKAD 


DEF 


LSLTB 


1198 


25200 




ADTBL 


EQU 


37700B- 


1199 


05637 


025200 


ADTBA 


DEF 


ADTBL 


1200 


12500 




IDTBL 


EQU 


ADTBL-l 


1201 


05640 


012500 


IDTBA 


DEF 


IDTBL 


1202 


05640 




UPRBA 


EQU 


IDTBA 


1203 


05641 


005771 


DIRBA 


DEF 


DIRBF 


1204 


05642 


012101 


ULTTB 


DEF 


12101B 


1205 


05643 


012100 


ULTMl 


DEF 


12100B 


1206 


05644 


005676 


TRKTA 


DEF 


TRKTB 


1207 


05645 


005702 


USTRA 


DEF 


TRKTB+4 


1208 


05646 


003003 


MTRLA 


DEF 


MTRLT 


1209 


05647 


002504 


LDRTA 


DEF 


liDRTT 


1210 


05650 


002500 


BSYIA 


DEF 


BSYSl 


1211 


05651 


002501 


BSY2A 


DEF 


BSYS2 


1212 


05652 


002502 


BSY3A 


DEF 


BSYS3 


1213 


05653 


014000 


RSYAl 


OCT 


14000 


1214 


05654 


026500 


RSYA2 


OCT 


26500 


1215 


05655 


002423 


WORD 


DEF 


WORDC 


1216 


05656 


000000 


BSBSA 


DEF 


BSBSO 


1217 


05657 


002436 


TSBBA 


DEF 


BSLDR 


1218* 












1219 


05660 


000000 


TEMPO 


BSS 




1220 


05661 


000000 


TEMPI 


BSS 




1221 


05662 


000000 


TEMP2 


BSS 




1222 


05663 


000000 


TEMP3 


BSS 




1223 


05664 


000000 


TEMP4 


BSS 




1224 


05665 


000000 


COUNT 


BSS 




1225 


05666 


000000 


MTFiiG 


BSS 




1226 


05667 


000000 


SYSLF 


BSS 




1227 


05671 


000000 


SYSTl 


BSS 




1228 


05672 


000000 


SYST2 


BSS 




1229 


05673 


000000 


SYSSl 


BSS 




1230 


05674 


000000 


SYSS2 


BSS 




1231 


05675 


000000 


SLDIR 


BSS 




1232 


05676 


000000 


TRKTB 


BSS 


20 



'BOOTSTRAP' 

BOOTSTRAP LOADER 
INSTRUCTIONS 



SKELETON CODE 
FOR PHONES 



EQUIPMENT TABLE ADDRESS 
EQT 'DISC READ' CORE ADDRESS 
EQT DISC ADDRESS 
DIRECTORY TABLE ADDRESS 

AVAILABLE TRACK TABLE ADDRESS 
DISC SELECT CODE TABLE ADDRESS 
LINKAGE TABLE ADDRESS 

12500B ADT BUFFER 

ADT BUFFER ADDRESS 

2500B ID TABLE BUFFER 

ID TABLE BUFFER ADDRESS 

USER PROGRAM BUFFER ADDRESS 

ADDRESS OF NULL DIRECTORY 

USER LIBRARY TRACK TABLE ADDRESS 

SYSTEM TRACK TABLE ADDRESS 
USER TRACK DISC ADDRESSES 
BUFFER ADDRESS FOR SEGMENT TABLE 
=> DISC LOADER DISC ADDRESSES 
ADDRESSES OF 

SYSTEM SEGMENT 
WORD COUNTS 
SYSTEM SEGMENT 

CORE ADDRESSES 
DISC BLOCK WORD COUNT ADDRESS 
ADDRESS OF 'BOOTSTRAP' BOOTSTRAP 
ADDRESS OF TSB BOOTSTRAP LOADER 



LOADER MODE FLAG 
SYSTEM LIBRARY FLAGS 
DISC ADDRESSES OF SPACE 

ON SYSTEM LIBRARY TRACKS 
SPACE AVAILABLE ON 

SYSTEM LIBRARY TRACKS 
SYSTEM LIBRARY DIRECTORY POINTER 
CLAIMED TRACKS TABLE 
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1234 


05722 


006362 


LKUNA 


DEF 


LKUNL 


1235 


05723 


002010 


ASR35 


DEF 


TTY35 


1236 


05724 


002145 


DISC 


DEF 


DISCD 


1237 


05725 


010356 


MTAPE 


DEF 


MTD 


1238 


05726 


011457 


MTDIA 


DEF 


MTDIM 


1239 


05727 


007112 


ADVLA 


DEF 


ADVAL 


1240 


05730 


006625 


GTDNA 


DEF 


GTDNO 


1241 


05731 


006755 


GTTRA 


DEF 


GTTRK 


1242 


05732 


007021 


INTGA 


DEF 


INTGR 


1243 


05733 


007011 


ISOTA 


DEF 


ISOTL 


1244 


05734 


007171 


MOVUA 


DEF 


MOVUP 


1245 


05735 


007077 


READA 


DEF 


READ 


1246 


05736 


006563 


SELCA 


DEF 


SELCD 


1247 


05737 


006665 


SETDA 


DEF 


SETDS 


124a 


05740 


miQSJ 


TWODA 


BEW 


TW€^DG 


1249 


05741 


007233 


€ETCA 


DEF 


GETCR 


1250 


05742 


007251 


GTMTA 


DEF 


GETMT 


1251* 












1252 


05743 


006011 


LBRYA 


DEF 


liBRY 


1253 


05744 


011706 


ILINA 


DEF 


ILIN 


1254 


05745 


006017 


S/TDA 


DEF 


S/TDO 


1255* 












1256 


05746 


006050 


DISMA 


DEF 


DISWD 


1257 


05747 


006063 


RQSTA 


DEF 


RQSTD 


1258 


05750 


006075 


BDLA 


DEF 


BDDL 


1259 


05751 


006105 


nZMBA 


DEF 


DZMBF 


1260 


05752 


006121 


IliSCA 


DEF 


ILSCD 


1261 


05753 


006134 


LULCA 


DEF 


liULC 


1262 


05754 


006157 


RDMSA 


DEF 


ROMS 


1263 


05755 


006173 


BLDRA 


DEF 


BLDRC 


1264 


05756 


006213 


EOTMA 


DEF 


EOTM 


1265 


05757 


006222 


CHKSA 


DEF 


CHKSM 


1266 


05760 


006233 


DATEA 


DEF 


DATER 


1267 


05761 


006237 


ILDTA 


DEF 


ILDTE 


1268 


05762 


006247 


TIMEA 


DEF 


TIMER 


1269 


05763 


006253 


ILTIA 


DEF 


ILTIM 


1270 


05764 


006263 


EOFMA 


DEF 


EOFM 


1271 


05765 


006306 


TAPEA 


DEF 


TAPER 


1272 


05766 


006321 


liABOA 


DEF 


LABOR 


1273 


05767 


006333 


SYSLA 


DEF 


SYSL 


1274 


05770 


006350 


OODSA 


DEF 


OODSP 



LOCK/UNLOCK CODE ADDRESS 

TTY DRIVER ADRESS 

DISC DRIVER ADDRESS 

MAG TAPE DRIVER ADDRESS 

MAG TAPE INITIALIZATION ROUTINE 



[F3 



CF] 



1276* 

1277* 

1278* 

1279 

1280 



NULL DIRECTORY 



05771 000000 
06001 177777 



DIRBF DEC 0,0,0,0,0,-1,0,0 DIRECTORY 

DEC -1,-1,-1,-1,0,-1,0,0 PSUEDO-ENTRIES 
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1282 


06011 


006412 


LBRY 


OCT 


6412 




1283 


06012 


046111 




ASC 


5, LIBRARY? 




1284 


06017 


005123 


S/TDO 


OCT 


5123 




1285 


06020 


042503 




ASC 


12,ECT0RS/TRACK ON DISC 0? 




1286 


06034 


005115 


MTSC 


OCT 


5115 




1287 


06035 


040507 




ASC 


11, AG TAPE SELECT CODE? 




1288 


06050 


005104 


DISMD 


OCT 


5104 




1289 


06051 


044523 




ASC 


10, ISC MODIFICATIONS? 




1290 


06063 


005102 


ROSTD 


OCT 


5102 




1291 


06064 


042507 




ASC 


8,EGIN WITH 'DISC 




1292 


06074 


006400 




OCT 


6400 




1293 


06075 


005102 


BDDL 


OCT 


5102 




1294 


06076 


040504 




ASC 


6, AD DELIMITER 




1295 


06104 


006400 




OCT 


6400 




129^6 


06105 


0-05104 


f52MfiF 


OCT 


SI 04 




1297 


06106 


044523 




ASC 


10, ISC MUST BE IN 14 




1298 


06120 


006400 




OCT 


6400 




1299 


06121 


005111 


ILSCD 


OCT 


5111 




1300 


06122 


046114 




ASC 


9,LLEGAL SELECT CODE 




1301 


06133 


006400 




OCT 


6400 




1302 


06134 


006412 


hUhC 


OCT 


6412 




1303 


06135 


043511 




ASC 


17, GIVE LOCK, UNLOCK, OR LOAD COMMAND 


1304 


06156 


006412 




OCT 


6412 




1305 


06157 


005104 


ROMS 


OCT 


5104 




1306 


06160 


044523 




ASC 


11, ISC ?«ONTTOR PRESENT? 




1307 


06173 


005114 


BLDRC 


OCT 


5114 




1308 


06174 


047501 




ASC 


15,0ADER NOT CONFIGURED FOR TSB, 




1309 


06213 


005105 


EOTM 


OCT 


5105 




1310 


06214 


047104 




ASC 


5,ND OF TAPE 




1311 


06221 


006400 




OCT 


6400 




1312 


06222 


005103 


CHKSM 


OCT 


5103 




1313 


06223 


044105 




ASC 


7,H£CKSUM ERROR 




1314 


06232 


006400 




OCT 


6400 




1315 


06233 


005104 


DATER 


OCT 


5104 




1316 


06234 


040524 




ASC 


3, ATE? 




1317 


06237 


005111 


ILDTE 


OCT 


5111 




1318 


06240 


046114 




ASC 


6,LLEGAL DATE 




1319 


06246 


006400 




OCT 


6400 




1320 


06247 


005124 


TIMER 


OCT 


5124 




1321 


06250 


044515 




ASC 


3,IME? 




1322 


06253 


005111 


ILTIM 


OCT 


5111 




1323 


06254 


046114 




ASC 


6,LLEGAL TIME 




1324 


06262 


006400 




OCT 


6400 




1325 


06263 


005000 


EOFM 


OCT 


5000 




1326 


06264 


052516 




ASC 


18, UNEXPECTED END-OF-FILE/END-Of- 


•TAPE, 


1327 


06306 


005124 


TAPER 


OCT 


5124 




1328 


06307 


040520 




ASC 


10, APE CANNOT BE READ, 




1329 


06321 


046117 


LABOR 


ASC 


9, LOAD/DUMP ABORTED 




1330 


06332 


006412 




OCT 


6412 




1331 


06333 


005123 


SYSL 


OCT 


5123 




1332 


06334 


054523 




ASC 


12,ySTEM LIBRARY OVERFLOW, 




1333 


06350 


005117 


OODSP 


OCT 


5117 




1334 


06351 


052524 




ASC 


9,UT OF DISC SPACE, 
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1336* 

1337** 

1338* 

1339* 

1340* 

1341* 

1342* 

1343* 

1344* 

1345* 

1346* 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383* 

1384* 

1385* 

1386* 

1387 

1388 

1389 

1390 



INTERPRET REQUEST 



* 

** 

* 



UPON ENTRY (B) = FOR A 'LOCK' OR -1 FOR AN 'UNLOCK'. SEARCH 
THE INPUT RECORD FOR • <DISC #>,<TRACK #>,<TRACK #> OR FOR 
- <DISC #>,<TRACK #> , INSURE THAT <DISC #> DOES NOT EXCEED 3 
AND CORRESPONDS TO AN EXISTING DISC. INSURE THAT ANY <TRACK #> 

DOES NOT EXCEED 64 AND THAT THE SECOND <TRACK #>. IF PRESENT- 
IS AT LEAST AS GREAT AS THE FIRST. 

06362 077417 LKUNL STB MFLAG SAVE MODE 

06363 003400 CCA GET LEGAL 

06364 016625 JSB GTDNO DISC # 

06365 127402 JMP L22A , I NOT FOUND 

06366 001020 ALS^ALS FOUND, SAVE POINTER 

06367 043373 ADA LTRAX TO ITS 

06370 073411 STA LTMpl TRAX TABLE 

06371 017021 JSB INTGR GET TRACK i 

06372 073413 STA LTMP3 SAVE FOLLOWING CHARACTER 

06373 017145 JSB PARCK VALIDATE AND SAVE 

06374 077412 STB LTMP2 TRACK NUMBER 

06375 063410 LDA LTMPO SAVE 

06376 001323 RAR,RAR DISC 

06377 005727 BLF,BLF ADDRESS 

06400 040001 ADA 1 OF 

06401 073414 STA LTMP4 TRACK 

06402 063413 LDA LTMP3 WAS DELIMITER 

06403 053331 CPA LB54 A COMMA? 

06404 026414 JMP LKUN2 YES 

06405 007400 CCB NO 

06406 053321 CpA LB15 CARRIAGE RETURN? 

06407 026425 JMP LKUN3-1 YES 

06410 063322 LKUNl LDA L.15 NO 

06411 067424 LDB BDDLA PRINT 

06412 117377 JSB ASRDA,! ERROR 

06413 127402 JMP L22A,I 

06414 017021 LKUN2 JSB INTGR GET SECOND TRACK # 

06415 053321 CPA LB15 FOLLOWED BY CARRIAGE RETURN? 

06416 002001 RSS YES 

06417 026410 JMP LKUNl NO 

06420 017145 JSB PARCK VALIDATE PARAMETER 

06421 007000 CMB COMPUTE # OF TRACKS 

06422 047412 ADB LTMP2 TO BE LOCKED/UNLOCKED 

06423 006021 SSB,RSS ONE OR MORE? 

06424 027152 JMP PARCl NO 

06425 077413 STB LTMP3 YES, SAVE COUNT 

FOR EACH TRACK IN TURN, EXTRACT ITS STATUS AND JUMp TO THE 
LOCK OR UNLOCK CODE. 



06426 063414 

06427 001066 

06430 006400 

06431 100022 



LKUN3 LDA LTMp4 

ALS,CLE,ELA 

CLB 

ASL 2 



SET POINTER 

TO PROPER 

WORD OF 
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1391 


06432 


047411 




ADB 


LTMPI 


TRAX 


1392 


06433 


077415 




STB 


LTMP5 


TABLE 


1393 


06434 


001700 




ALF 




SAVE 


1394 


06435 


043375 




ADA 


BMSKA 


APPROPRIATE 


1395 


06436 


160000 




LDA 


0,1 


BIT 


1396 


06437 


073416 




STA 


LTMP6 


MASK 


1397 


06440 


113415 




AND 


LTMP5,I 


EXTRACT TRACK STATUS 


1398 


06441 


067417 




LDB 


MFLAG 




1399 


06442 


006006 




INB, 


,BZB 


UNLOCK? 


1400 


06443 


026516 




JHP 


LKUN6 


NO 


1401* 








* 






1402=t=* UNLOCK k TRACK ** 






1403* 








* 






1404* 














1405* 


IF TRACK IS 


LOCKED 


, UNLOCK IT AND INSERT A FULL-TRACK ENTRY 


1406* 


INTO 


THE ADT 


(IF THE ADT IS FULL 


, THE TRACK IS LOST UNTIL A 


1407* 


SUBSEQUENT RELOAD) 


tt 






1408* 














1409 


06444 


002003 




SZA, 


,RSS 


IS TRACK LOCKED? 


1410 


06445 


026507 




JMP 


LKUN5 


NO 


1411 


06446 


123415 




XOR 


LTMP5,I 


YES 


1412 


06447 


173415 




STA 


LTMP5,I 


UNLOCK TRACK 


1413 


06450 


064137 




LDB 


ADLEN 


IS ADT 


1414 


06451 


057340 




CPB 


MXADT 


FULL? 


1415 


06452 


026507 




JMP 


LK0N5 


YES, TRACK LOST 


1416 


06453 


007004 




CMBi 


,INB 


NO 


1417 


06454 


047372 




ADB 


ADTBF 


SET POINTER TO 


1418 


06455 


077415 




STB 


LTMP5 


LAST WORD +1 OF ADT 


1419 


06456 


064137 




LDB 


ADLEN 


CORRECT 


1420 


06457 


047313 




ADB 


LM2 


ADT 


1421 


06460 


074117 




STB 


ADLEN 


LENGTH 


1422 


06461 


017156 




JSB 


FADTP 


FIND POSITION FOR NEW ENTRY 


1423 


06462 


063415 




LDA 


LTMP5 


COMPUTE 


1424 


06463 


003004 




CMA, 


,INA 


# OF 


1425 


06464 


040001 




ADA 


1 


ENTRIES 


1426 


06465 


001100 




ARS 




TO BE 


1427 


06466 


073410 




STA 


LTMPO 


MOVED 


1428 


06467 


063415 




LDA 


LTMP5 




1429 


06470 


043313 


LKUN4 


ADA 


LM2 


SET 


1430 


06471 


073416 




STA 


LTMP6 


SOURCE ADDRESS 


1431 


06472 


104200 




DLD 


LTMP6,I 


MOVE 


1432 


06474 


104400 




DST 


LTMP5,I 


ENTRY 


1433 


06476 


063416 




LDA 


LTWP6 


UPDATE TO NEXT 


1434 


06477 


073415 




STA 


LTMP5 


DESTINATION ADDRESS 


1435 


06500 


037410 




ISZ 


LTMPO 


ALL ENTRIES MOVED? 


1436 


06501 


026470 




JMP 


LKUN4 


NO 


1437 


06502 


063414 




LDA 


LTMP4 


YES 


1438 


06503 


173415 




STA 


LTMP5,I 


SET ENTRY'S DISC ADDRESS 


1439 


06504 


017011 




JSB 


TSOTL 


SET 


1440 


06505 


037415 




TSZ 


LTMP5 


ENTRY'S LENGTH 


1441 


06506 


173415 




STA 


LTMP5,T 


IN SECTORS 


1442* 














1443* 


CHECK IF UNPROCESSED TRACKS REMAIN. IF SO, UPDATE REFERENCE 


1444* 


OUANTITIES AND PROCEED 


TO PROCESS THE NEXT ONE? ELSE RETURN 


1445* 


TO THE LOADE 


R FOR 


FURTJ 


iER INSTRU 


CTIQNS. 
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1446* 














1447 


06507 


063414 


LKUN5 


LDA 


LTMP4 


COMPUTE 


1448 


06510 


043335 




ADA 


LB400 


DISC ADDRESS OF 


1449 


065U 


073414 




STA 


LTMP4 


NEXT TRACK 


1450 


06512 


037412 




ISZ 


LTMP2 


ADVANCE TRACK # 


1451 


06513 


037413 




ISZ 


LTMP3 


ALL TRACKS CONSIDERED? 


1452 


06514 


026426 




JMP 


LKUN3 


NO 


1453 


06515 


127402 




JMP 


L22A,I 


YES 


1454* 






* 








1455** LOCK A TRACK ** 








1456* 






* 








1457* 














1458* 


IF THE TRACK 


IS UNLOCKED AND LOCKABLE, LOCK IT AND REMOVE ITS 


1459* 


ENTRY FROM THE ADT 


? ELSE PRINT A 


MESSAGE AND CONTINUE TO THE 


1460*^ 


NEXT" 


TRACK. 


^ 'j'^j^Q^ IS toeKABIiE 


IF IT ms m ADf ENTRY 


1461* 


CORRESPONDING TO THE FULL LENGTH 


OF THE TRACK? I.E., NO PART 


1462* 


OF THE TRACK 


IS IN 


USE, 


> 




1463* 














1464 


06516 


002002 


LKUN6 


SZA 




TRACK LOCKED? 


1465 


06517 


026507 




JMP 


LKUN5 


YES 


1466 


06520 


017156 




JSB 


FADTP 


NO, FIND ADT ENTRY FOR TRACK 


1467 


06521 


063414 




LDA 


LTMP4 


ENTRY 


1468 


06522 


150001 




CPA 


1,1 


FOUND? 


1469 


06523 


006005 




INB, 


,RSS 


YES 


1470 


06524 


026537 




JMP 


LKUN7 


NO 


1471 


06525 


017011 




JSB 


ISOTL 


GET TRACK LENGTH 


1472 


06526 


150001 




CPA 


1,1 


IS PART OF TRACK IN USE? 


1473 


06527 


006005 




INBi 


,RSS 


NO 


1474 


06530 


026537 




JMP 


LKUN7 


YES 


1475 


06531 


060001 




LDA 


1 


DELETE 


1476 


06532 


017171 




JSB 


MOVUP 


ADT ENTRY 


1477 


06533 


163415 




LDA 


LTMP5,I 


LOCK 


1478 


06534 


033416 




lOR 


LTMP6 




1479 


06535 


173415 




STA 


LTMP5,I 


TRACK 


1480 


06536 


026507 




JMP 


LKUN5 




1481* 














1482 


06537 


063324 


LKUN7 


LDA 


L.20 


PRINT 'CANNOT 


1483 


06540 


067432 




LDE 


TRKNA 


LOCK TRACK # ' 


1484 


06541 


117377 




JSB 


ASRDA,I 




1485 


06542 


006400 




CLB 




COMPUTE 


1486 


06543 


063412 




LDA 


LTMP2 


DIGITS OF 


1487 


06544 


100400 




DIV 


L.10 


TRACK # 


1488 


06546 


047332 




ADB 


LB60 


COMPUTE 


1489 


06547 


002003 




SZA, 


,RSS 




1490 


06550 


026553 




JMP 


LKUN8 


ASCII OF 


1491 


06551 


043332 




ADA 


LB60 




1492 


06552 


001727 




ALF, 


-ALF 


TRACK # 


1493 


06553 


030001 


LKUN8 


TOR 


1 




1494 


06554 


067344 




LDB 


B6400 


PRINT 


1495 


06555 


104400 




DST 


EBUFA,! 




1496 


06557 


063316 




LDA 


L.3 


IT 


1497 


06560 


067376 




LDB 


FBUFA 




1498 


06561 


117377 




JSB 


ASRDA,! 




1499 


06562 


026507 




JMP 


LKUN5 
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1501* 

isoa'*^ 

1503* 

1504* 

1505* 

1506* 

1507* 

1508* 

1509* 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544* 

1545* 

1546* 

1547* 

1548* 

1549* 

1550* 

1551* 

1552* 

1553 

1554 

1555 



* GET SELECT CODE 



* 



ENTER WITH A CHARACTER IN (A). FIND A TWO-DIGIT OCTAL 
INTEGER IN C(77 OCT - SELCD,I},76 OCT]. IF THIS CANNOT BE DONE, 
PRINT AN ERROR AND EXIT TO (P+2), ELSE EXIT TO (P+3) WITH THE 
INTEGER IN (B) AND THE FOLLOWING CHARACTER IN (A), 



06563 000000 SELCD 

06564 017220 

06565 026621 

06566 047311 

06567 006021 
06570 026621 

06571 001723 

06572 073411 

06573 017233 

06574 026621 

06575 017220 

06576 026621 

06577 047311 

06600 006021 

06601 026621 

06602 043411 

06603 073411 

06604 017233 

06605 000000 

06606 067411 

06607 047307 

06610 006021 

06611 026621 

06612 146563 

06613 006020 

06614 026621 

06615 067411 

06616 036563 

06617 036563 SELCl 

06620 126563 

06621 063325 SELC2 

06622 067425 

06623 117377 

06624 026617 

* GET DISC NUMBER 

SEARCH THE INPUT R 
£0,3] FOLLOWED B^ 
THE REFERENCED DIS 
(A) IF ABOVE CONDI 

EXIT TO CP+1), 



NOP 

JSB DIGCK 
JMP SELC2 
ADB hm 
SSB,RSS 
JMP SELe2 
ALF,RAR 
STA LTMPl 
JSB GETCR 
JMP SELC2 
JSB DIGCK 
JMP SELC2 
ADB hm 
SSB,RSS 
JMP SELC2 
ADA LTMPl 
STA LTMPl 
JSB GETCR 
NOP 

LDB LTMPl 
ADB LD77 
SSB f RSS 
JMP SELC2 
ADB SELCD, I 
SSB 

JMP SELC2 
LDB LTMPl 
ISZ SELCD 
ISZ SELCD 
JMP SELCD,! 
LDA L.21 
LDB ILSCL 
JSB ASRDA,I 
JMP SELCl 
* 

ECORD FOR A '- 
A COMMA. IF C 
C EXISTS. FXI 
TIONS ARE MET? 



DIGIT? 

NO 

YES, OCTAL 

DIGIT? 
NO 
YES 

SAVE IT * 8 
NEXT 

CHARACTER AN 

OCTAL DIGIT? 

NO 

YES, SAVE 

SELECT CODE 

SELECT CODE 

WITHIN 

LEGAL RANGE? 

NO 
YES 



REPORT 
ERROR 



06625 000000 

06626 073410 

06627 017233 



GTDNO NOP 

STA LTMPO 
GTDNl JSB GETCR 



' FOLLOWED Bi' AN INTEGER IN 
A) = -1 UPON ENTRY, CHECK THAT 
T TO (P+2) WITH THE INTEGER IN 
OTHERWISE, PRINT AN ERROR AND 



SAVE FLAG 
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1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1364 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585* 

1586* 

1587* 

1588* 

1589* 

1590* 

1591* 

1592* 

1593* 

1594* 

1595* 

1596* 

1597* 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 



06630 
06631 
06632 
06633 
06634 
06635 
06636 
06637 
06640 
06641 
06642 
06643 
06644 
06645 
0-6646 
06647 
06650 
06651 
06652 
06653 
06654 
06655 
06656 
06657 
06660 
06661 
06662 
06663 
06664 



026637 
053343 
002001 
026627 
017021 
053331 
026643 
063322 
067424 
117377 
126625 
060001 
047312 
006020 
0266S3 

063323 
067430 
117377 
126625 
037410 
026663 
073410 
043374 
006400 
154000 
026647 
063410 
036625 
126625 



JMP 
CPA 
RSS 
JMP 
JSB 
CPA 
JMP 

GTDN2 LDA 
LDB 
JSB 
JMP 

GTDN3 LDA 
ADB 
SSB 
JMP 

GT0N4 LDA 
LDB 
JSB 
JMP 

GTDN5 ISZ 
JMP 
STA 
ADA 
CLB 
CPB 
JMP 
LDA 

GTDN6 ISZ 
JMP 



* SET DISC TABLE ENTRY 



GTDN2 
DASH 

GTDNl 

INTGR 

LB54 

GTDN3 

L,15 

BDDLA 

ASRDA,! 

GTDNO,! 

1 

LM4 

GTDN5 

L,17 

BADDA 

ASRDA,! 

GTDNO,! 

LTMPO 

GTDN6 

LTMPO 

LDTBL 

0,1 

GTDN4 

LTMPO 

GTDNO 

GTDNO,! 

* 
** 

* 



YES 
NO 

GET DISC # 

FOLLOWED BY A COMMA? 
YES 
NO 

PRINT 
ERROR 

DISC # 

< 4 ? 

YES 
NO 

PRINT 
ERROR 

CHECK DISC TABLE? 
NO 

YES, SAVE DISC # 
DOES 
DISC 

EXIST? 
NO 
YES, LOAD DISC # 



UPON ENTRY TEMpi HOLDS THE DISC # AND TEMP2 HOLDS THE DISC'S 

SELECT CODE, IF TEMP2 > UpON ENTRY, SEARCH THE INPUT 

BUFFER FOR AN INTEGER IN [90,128] FOLLOWED BY A CARRIAGE RETURN, 

IF FOUND, RESET THE DISC TABLE ENTRY APPROPRIATELY AND UNLOCK THE 

TRACKS ON THE DISC, EXITING TO fP+2). IF NO PROPER 

INTEGER IS FOUND, PRINT AN ERROR AND EXIT TO (P+l), IF TEMP2 = 

UPON ENTRY, ZERO THE DISC'S TABLE ENTRY AND LOCK ITS TRACKS, 

EXITING TO (P+2), 



06665 
06666 
06667 
06670 
06671 
06672 
06673 
06674 
06675 
06676 
06677 
06700 
06701 



000000 
167406 
047374 
163407 
002002 
026710 
170001 
067312 
077411 
167406 
005020 
047373 
003000 



SETDS NOP 
LDB 
ADB 
LDA 
SZA 
JMP 
STA 

SETDl LDB 
STB 
LDB 
BLS 
ADB 
CMA 



TMPIA,! COMPUTE ADDRESS OF PROPER 
LDTBL DISC TABLE ENTRY 
TMP2A,I DISC 

REMOVAL? 
SETD3 NO 

1,1 YES, REMOVE DISC 
LM4 SET 
LTMPl COUNTER 
TMPIA,! COMPUTE 
,BLS TRACK TABLE 

LTRAX ADDRESS 

SET DISC AVAILABLE 
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1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654* 

1655* 

1656* 

1657* 

1658* 

1659* 

1660* 

1661* 

1662* 

1663 

1664 

1665 



06702 
06703 
06704 
06705 
06706 
06707 
06710 
06711 
06712 
06713 
06714 
06715 
06716 
06717 
06720 
06721 
06722 
06723 
06724 
06725 
06726 
06727 
06730 
06731 
06732 
06733 
06734 
06735 
06736 
06737 
06740 
06741 
06742 
06743 
06744 
06745 
06746 
06747 
06750 
06751 
06752 
06753 
06754 



170001 
006004 
037411 
026702 
036665 
126665 
077412 
017021 
053321 
026720 
063326 
067426 
117377 
126665 
060001 
047305 
006021 
026714 
047330 
006020 
026714 
001727 
073411 
006400 
177412 
167407 
002001 
047333 
063374 
073413 
063312 
073414 
163413 
013334 
050001 
026735 
037413 
037414 
026742 
047411 
177412 
003400 
026674 



SETD2 



SETD3 



SETD4 



SETD5 



SETD6 



SETD7 



STA 


1,1 




INS 




OR NOT AS 


ISZ 


LTMPI 




JMP 


SETD2 


APPROPRIATE 


ISZ 


SETDS 




JMP 


SETDS,I 




STB 


LTMP2 


SAVE DTBL ADDRESS 


JSB 


INTGR 


GET # OF SECTORS 


CPA 


LB15 


END-QF-LINE? 


JMP 


SETDS 


YES 


LDA 


L.23 


NO 


LDB 


ILTRA 


PRINT 


JSB 


ASPDA,! 


ERROR 


JMP 


SETDS, I 




liDA 


1 




ADB 


LM129 


VERIFY RESULT 


SSB, 


.PSS 




JMP 


SETD4 


TO BE WITHIN 


ADB 


L,39 




SSB 




[90,1283 


JMP 


SETD4 




ALF, 


rALF 


POSITION AMD 


STA 


LTMpi 


SAVE LENGTH 


CLB 




DELETE 


STB 


LTMP2,I 


PRIOR ENTRY 


LDB 


TMP2A,I 


COMPUTE 


nss 




TRIAL 


ADB 


LBIOO 


SELECT CODE PART 


LDA 


LDTBL 


SET 


STA 


LTMP3 


FOR 


LDA 


LM4 


TABLE 


STA 


LTMP4 


SEARCH 


LDA 


LTMP3,I 


SELECT CODE PART 


AND 


LB377 


ALREADY 


CPA 


1 


USED? 


JMP 


SETD6 


YES 


ISZ 


LTMP3 


NO, MORE 


ISZ 


LTMP4 


TABLE ENTRIES? 


JMP 


SETD7 


YES 


ADB 


LTMPI 


NO, CREATE 


STB 


LTMP2,I 


NEW ENTRY 


CCA 




UNLOCK 


JMP 


SETDl 

* 
** 

* 


TRACKS 


CK 





* GET A COMPLETE TRACK 



SEARCH ADT FOR A FULL TRACK. IF MQNE FOUND, TERMINATE 
LOADING. IF FOUND, RETURN WITH DISC ADDRESS IN (A). IF 
(A) = -1 UPON ENTRY, DELETE TRACK'S ADT ENTRY, ELSE SET 
ITS SECTOR COUNT TO ZERO, 



06755 000000 

06756 073411 

06757 067315 



GTTRK NOP 

STA LTMpl 
LDB L,2 



SAVE FLAG 
SET 



[E3 
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1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691* 

1692* 

1693* 

1694* 

1695* 

1696* 

1697* 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706* 

1707* 

1708* 

1709* 

1710* 

1711* 

1712* 

1713* 

1714 

1715 

1716 

1717 

1718 

1719 

1720 



06760 
06761 
06762 
06763 
06764 
06765 
06766 
06767 
06770 
06771 
06772 
06773 
06774 
06775 
06776 
06777 
07000 
07001 
07002 
07003 
07004 
07005 
07006 
07007 
07010 



044137 
005100 
077412 
067372 
160001 
017011 
006004 
150001 
026775 
006004 
037412 
026764 
127404 
002400 
170001 
047314 
160001 
037411 
126755 
073412 
047315 
060001 
017171 
063412 
126755 



ADB 
BRS 
STB 
LDB 

GTTRl LDA 
JSB 
INB 
CPA 
JMP 
INB 
JSZ 
JMP 
JMP 

GTTR2 CLA 
$TA 
ADB 
LDA 
ISZ 
JMP 
STA 
ADB 
LDA 
JSB 
LDA 
JMP 



* ISOLATE TRACK LENGTH 



ADLEN 

LTMP2 
ADTBF 

ISOTL 

1,1 
GTTR2 

LTMP2 
GTTRl 
ERR5A,I 

1,1 

LMl 

1,1 

LTWPI 

GTTRK,! 

LTMP2 

L,2 

1 

MOVUP 

LTMP2 

GTTRK,! 

* 
** 

* 



ENTRY COUNTER, [E] 

SKIPPING LAST [E] 

PSUEDO-ENTRY CE3 

CB) WILL HOLD ENTRY ADDRESSES 
LOAD ENTRY'S DISC ADDRESS 
GET TRACK LENGTH 

IN SECTORS 
ALL OF TRACK AVAILABLE? 
YES 
NO 

WORE ADT ENTRIES? 
YES 
NO 
CLAIM 

TRACK 
LOAD 

DISC ADDRESS 
REMOVE ENTRY? 
NO 
YES 
ELIMINATE 

ENTRY 
RETRIEVE 

DISC ADDRESS 



ENTER WITH A DISC ADDRESS IN (A), 
SECTORS OE THE REFERENCED TRACK 1 

07011 000000 ISOTL NOP 



RETURN WITH THE LENGTH IN 
^ CA). 



07012 001222 

07013 013316 

07014 043374 

07015 160000 

07016 001727 

07017 013334 
07020 127011 

* BUILD AN INTEGER 



RAL,RAL 
AND L.3 
ADA LDTBL 
LDA 0,1 
ALF,ALF 
AND LB377 
JMP ISOTL,! 

* 
** 

* 



GET 

DISC # 
LOAD WORD FROM 

DISC TABLE 
EXTRACT TRACK LENGTH 

IN SECTORS 



SEARCH THE INPUT STRING FOR AN IN 
IT IN (B), IF NO DIGITS ARE FOUN 
16 BITS, RETURN WITH 32767 IN (B) 



TEGER. IE FOUND, RETURN WITH 
D OR THE INTEGER OVERFLOWS 



07021 000000 

07022 003400 

07023 073415 

07024 002400 

07025 073416 

07026 017233 

07027 027046 



INTGR NOP 

CCA 

STA LTMP5 

CLA 
INTGl STA LTMP6 

JSB GETCR 

JMP INTG2 



SET 'NO DIGITS' 

FLAG 
INITIALIZE TO ZERO 
STORE PARTIAL RESULT 
MORE CHARACTERS? 
NO 
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1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

173^S 

1736 

1737 

1738 

1739* 

1740* 

1741* 

1742* 

1743* 

1744* 

1745* 

1746* 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766* 

1767* 

1768* 

1769* 

1770* 

1771* 

1772* 
1773* 
1774 
1775 



07030 
07031 
07032 
07033 
07034 
07036 
07037 
07040 
07041 
07042 
07043 
07044 
07045 
07046 
07^4 7 
07050 
07051 
07052 



017220 
027046 
073415 
063416 
100200 
000040 
043415 
006043 
002020 
002001 
027025 
067336 
127021 
067416 
037415 
127021 
067336 
127021 



JSB 
JMP 
STA 
Wk 
MPY 
CLE 
ADA 
SEZ, 
SSA 
RSS 
JMP 
LDi 
JMP 
INTG2 LDB 
X o /» 
JMP 
LDB 
JMP 



* CONVERT TWO-DIGIT INTE 



DIGCK 
INTG2 

htnps 

LTMP6 
L.IO 

LTMP5 
SZB,RSS 



INTGl 

INF 

INTGR,! 

LTMP6 

LTMps 

INTGRrI 

TNF 

INTGR,I 
* 

GER ** 



YES, DIGIT? 

NO 

YES, SAVE IT 

MULITPLY PARTIAL 

RESULT BY 10 
ADD IN 

MEW DIGIT 

OVERFLOW? 
YES 

no 

REPLACE WITH 

MAXIMUM INTEGER 
LOAD INTEGER 
ANY DIGITS FOyHD? 
YES 
NO, LOAD ILLEGAL INTEGER 



SEARCH THE INPUT RECORD FOR A TWO-DIGIT INTEGER NOT TO EXCEED 
-CTWODG,! UPON ENTRY), IF FOUND, RETURN TO CPt2) WITH INTEGER 
IN CB), ELSE EXIT TO ERROR ROUTINE. 



07053 
07054 
07055 
07056 
07057 
07060 
07061 
07063 
07064 
07065 
07066 
07067 
07070 
07071 
07072 
07073 
07074 
07075 
07076 



000000 
017233 
127405 
017220 
127405 
006400 
100200 
073411 
017233 
127405 
017220 
127405 
0474U 
060001 
143053 
037053 
002020 
127053 
127405 



TWODG NOP 
JSB 
JMP 
JSB 
JMP 
CLB 
MPY 
STA 
JSB 
JMP 
JSB 
JMP 
ADB 
LDA 
ADA 
ISZ 
SSA 
JMP 
JMP 



* READ FROM PAPER TAPE 



GETCR 
ERR7A,I 
DIGCK 
ERR7A,I 

L.IO 

LTMPl 

GETCR 

ERR7A,I 

DIGCK 

ERR7A,I 

LTMPl 

I 

TWODG,! 

TWODG 

TWODG,! 
ERR7A,I 



FETCH 
AND 

VERIFY 
DIGIT 
MULTIPLY 
BY 10 

AND SAVE 
FETCH 
AND 

VERIFY 
DIGIT 
COMBINE WITH PRIOR RESULT 

INTEGER 
TOO 

LARGE? 
NO 
YES 



RETURN WITH A WORD FROM PAPER TAPE IN (B). IF CE3 = 1 UPON 
ENTRY, READ ONLY THE NEXT FRAME. IF CE) = UPON ENTRY, 
COMBINE THE NEXT TWO FRAMES INTO A 16-BIT RESULT. 



07077 000000 
07100 006600 



READ 



NOP 
CLB,CME 
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1776 07101 103713 READl STC 13B,C READ 

1777 07102 102313 SFS 13B A 

1778 07103 027102 JMP ^^i CHARACTER 

1779 07104 106713 ChC 13B INCLUSIVE OR 

1780 07105 106413 MIB 13B INTO (B) 

1781 07106 002041 SEZ,RSS SECOND CHARACTER TO BE READ? 

1782 07107 127077 JHP READ, I NO 

1783 07110 005767 BLF,CLE,BLF YES, HOVE FIRST CHARACTER 

1784 07111 027101 JMP READl TO HIGH PART OF (B) 
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1786* 

1787* 

1788* 

1789* 

1790* 

1791* 

1792* 

1793* 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 

1821* 

1822* 

1823* 

1824* 

1825* 

1826* 

1827* 

1828* 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 



* VALIDATE ADDRESS 



* 
* 



ENTER WITH AN ADDRESS IN CB). VERIFY THAT THIS! ADDRESS LIES 
WlfHI!^ AN AREA OF CORE CONTAINING TSB SYSTEM CODE. IF THIS IS 
NOT THE CASE, HLT 55 OCT WITH THE OFFENDING ADDRESS IN (a). 



07112 
07113 
07114 
07115 
07116 
07117 
07120 
07121 
07122 
07123 
07124 
07125 
07126 
07127 
07130 
07131 
07132 
07133 
07134 
07135 
07136 
07137 
07140 
07141 
07142 
07143 
07144 



000000 
077411 
000040 
047365 
002040 
027137 
047366 
006021 
127112 
047367 
006021 
027137 
047370 
006021 
127112 
047371 
006021 
027137 
047317 
006021 
127112 
063323 
067427 
117377 
0634U 
102055 
127403 



ADVAL NOP 
STB 
CLE 
ADB 
SEZ 
JMP 
ADB 
SSB , 
JMP 
ADB 
SSB , 
JMP 
ADB 
SSB, 
. JMP 
ADB 
SSB, 
JMP 
ADB 
SSB, 
JMP 

ADVAl LDA 
LDB 
JSB 
LDA 
HLT 
JMP 



* VALIDATE TRACK NUMBER 



LTMPI 

MAXAD 

ADVAl 

SYSTA 

RSS 

ADVAL, I 

MAXBA 

RSS 

ADVAl 

BPAGA 

RSS 

ADVAL, T 

INRPA 

RSS 

ADVAl 

LBll 

RSS 

ADVAL,! 

L,17 

BDADA 

ASRDA,! 

LTMPI 

55B 

L46A,I 

** 
* 



SAVE ADDRESS 
BELOW 

PROTECTED 
LOADER? 
NO 
YES, IN MAIN PART 

OF SYSTEM? 
YES 
NO, BELOW 

UNUSED SWAP AREA? 
NO 
YES, IN BASE PART 

OF SYSTEM? 
YES 
MO, WITHIN LEGAL 

INTERRUPT AREA? 
NO 
YES, 

CA) OR CB) ? 
NO 
YES 
PRINT 

ERROR 
DISPLAY ADDRESS 
WAIT FOR REREAD ATTEMPT 



ENTER WITH AN INTEGER IN (B). IF IT IS LESS TUhU 64, EXIT WITH 
CB) UNCHANGED? OTHERWISE, PRINT AN ERROR AND RETURN TO LOADER 
SEQUENCE. 



07145 000000 PARCK NOP 

07146 060001 LDA 1 

07147 043306 ADA LM64 

07150 002020 SSA 

07151 127145 JMP PARCK,! 

07152 063321 PARCl LDA L.13 

07153 067431 LDB BADPA 

07154 117377 JSB ASRDA,! 

07155 127402 JMP L22A,I 



TRACK # 
< 64 ? 

YES 

NO 

PRINT 'BAD 
TRACK #' 
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1839* 

1840** 

1841* 

1842* 

1843* 

1844* 

1845* 

1846* 

1847 

1848 

1849 

1850 

1851 

1852 

lasi 

1854 

1855 

1856 

1857 

1858* 

1859** 

1860* 

1861* 

1862* 

1863* 

1864* 

1865* 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

1884 

1885 

1886 



FIND ADT POSITION 






SEARCH THE ADT FOR THE FIRST ENTRY WHOSE DISC ADDRESS IS EQUAL 
TO OR EXCEEDS THE DISC ADDRESS IN LTMP4. RETURN WITH A POINTER 
TO THIS ENTRY IN CB), 



07156 
07157 
07160 
07161 
07162 
07163 
07164 
07165 
07166 
07167 
07170 



000000 
063414 
003104 
073410 
067372 
140001 
00 20 4^ 
127156 
063410 
047315 
027163 



FADTP NOP 
LDA 
CMA, 
STA 
LDB 

FADTl ADA 
Si^E 
JMP 
LDA 
ADB 
JMP 



ELIMINATE ADT ENTRY 



LTMP4 
CLE, IN A 
LTMPO 
ADTBF 
1,1 

FADTP,! 
LTMPO 
L.2 
FADTl 

* 



2'S COMPLEMENT 

DISC ADDRESS 
SAVE IT 

INITIAL ADT POINTER 
FIRST ADT ENTRY >= 

TRACK DISC ADDRESS? 
YES 
NO, TRY 

NEXT ENTRY 



ENTER WITH THE ADDRESS OF THE SCRATCHED ADT ENTRY IN (A) AND (B) 
MOVE THE TABLE BELOW IT OVER IT AND DECREMENT THE ADT LENGTH 
BY 2. 



07171 
07172 
07173 
07174 
07175 
07176 
07177 
07200 
07201 
07202 
07203 
07205 
07207 
07210 
07211 
07212 
07213 
07214 
07215 
07216 
07217 



000000 
073421 
047313 
077420 
040137 
003004 
043372 
003004 
001100 
07 3422 
104200 
104400 
063421 
073420 
043315 
073421 
037422 
027203 
034137 
034137 
127171 



MOVUP NOP 
STA 
ADB 
STB 
ADA 
CMA, 
ADA 
CMA, 
ARS 
STA 

MOVUl DLD 
DST 
LDA 
STA 
ADA 
STA 
ISZ 
JMP 
ISZ 
ISZ 
JMP 



SOURC 

LM2 

DEST 

ADLEN 

INA 

ADTBF 

INA 

MCNT 

SOURC, I 

DEST,1 

SOURC 

DEST 

L.2 

SOURC 

MCNT 

MOVUl 

ADLEN 

ADLEN 

MOVUP,! 



SAVE SOURCE ADDRESS 
SAVE 

DESTINATION ADDRESS 
COMPUTE 

NUMBER OF 
ENTRIES 
TO BE 
MOVED 

MOVE 

ENTRY 
UPDATE 

ADDRESSES 

DONE? 
NO 

YES, REDUCE TABLE LENGTH 
BY ONE ENTRY 
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1888t 

1889* 

1890* 

1891* 

1892* 

1893* 

1894* 

1895* 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907* 

1908* 

1909* 

1910* 

1911* 

1912* 

1913* 

1914* 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929* 

1930* 

1931* 

1932* 

1933* 

1934* 

1935* 

1936* 

1937* 

1938* 

1939* 

1940 

1941 

1942 



* CHECK FOR A DIGIT 



* 
** 



ENTER WITH A CHARACTER? IN (A), IF IT IS A DIGIT, RETURN TO 
(P+2) WITH THE BINARY DIGIT IN (A) AND (B), OTHERWISE, RETURN 
TO (P+1) WITH THE CHARACTER IN CA). 



07220 
07221 
07222 
07223 
07224 
07225 
07226 
07227 
07230 
07231 
07232 



000000 
064000 
047310 
006021 
127220 
047320 
0O6O2<> 
127220 
060001 
037220 
127220 



* FETCH INPUT 



DIGCK NOP 

liDB 
ADB LD72 
SSB,RSS 
JMP DIGCK,! 
ADB LB12 
SSB 

JMP DIGCK,! 
LDA 1 
ISZ DIGCK 
JMP DIGCK,! 
* 

CHARACTER ** 
* 



ASCII 

72 OCT OR 
GREATER? 
YES 
NO, ASCII 57 OCT 

OR LESS? 
YES 
NO 



RETURN TO (P+2} WITH THE NEXT 
RECORD IN CA). IF A CARRIAGE 
WITH IT IN (A). 



NON-BLANK CHARACTER FROM THE INPUT 
RETURN IS FOUND, RETURN TO (P-f-l) 



07233 
07234 
07235 
07236 
07237 
07240 
07241 
07242 
07243 
07244 
07245 
07246 
07247 
07250 



000000 
067423 
037423 
004065 
160001 
002041 
001727 
013334 
053341 
027234 
053321 
127233 
037233 
127233 



* GET MAG TAPE 



GETCR NOP 

LDB BADDR 
ISZ BADDR 
CLE,ERB 
LDA 1,1 
SEZ,RSS 
ALF,ALF 
AND LB377 
CPA BLANK 
JMP GETCR+1 
CPA LB15 
JMP GETCR, I 
ISZ GETCR 
JMP GETCR,! 
* 
SELECT CODE ** 
* 



LOAD CHARACTER POINTER 

ADVANCE IT 

LOAD 

WORD 
ADJUST AS 

NECESSARY 
MASK OFF CHARACTER 
BLANK? 

YES, IGNORE IT 
NO, CARRIAGE RETURN? 
YES, EXIT TO CP+1) 
NO, EXIT 

TO (P+2) 



REQUEST MAG TAPE SELECT CODE. IF THE ANSWER IS A CARRIAGE 
RETURN, INDICATING PAPER TAPE RELOAD, RETURN TO (P+l), 
OTHERWISE, LOOK FOR A SELECT CODE IN [16 OCT, 76 OCT]. A "*" 
FOLLOWING THE SELECT CODE DESIGNATES THE MAG TAPE CONTROLLER 
AS A 7970 TYPE. EXIT TO CP+2) AFTER FINDING A VALID SELECT 
CODE. 



07251 000000 

07252 063327 

07253 067400 



GETMT NOP 






LDA 


L.24 


ASK 


LDB 


MTSCA 


FOR 



CF] 
[F3 
tF) 
CF) 
CF) 
[F3 
CF3 
CF] 
[F) 
CF] 
CF] 
CF3 
CF] 
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1943 


07254 


117377 




asB 


ASPDA,I 


MAG TAPE 


CF3 


1944 


07255 


002400 




CLA 




SELECT 




1945 


07256 


117377 




JSB 


ASRDA,I 


CODE 


CE] 


1946 


07257 


017233 




JSB 


GETCR 


EMPTY INPUT RECORD? 


CFJ 


1947 


07260 


127251 




JMP 


GETMT,I 


YES, PAPER TAPE RELOAD 


CE3 


1948 


07261 


016563 




JSB 


SELCD 


GET SELECT CODE 


CE3 


1949 


07262 


000061 




OCT 


61 


IN [16 OCT, 76 OCT] 




1950 


07263 


027252 




JMP 


GETMTtl 


NOT FOUND 


tE] 


1951 


07264 


177401 




STB 


MTFLA.I 


FOUND, SET FLAG TO 'MA.G TAPE' 


'in 


1952 


07265 


053321 




CPA 


LB15 


CARRIAGE RETURW FOLLOWS? 


CE3 


1953 


07266 


027303 




JMP 


GTMT3 


YES 


£F3 


1954 


07267 


053342 




CPA 


STAR 


NO, ASTERISK? 


CE3 


1955 


07270 


027275 




JMP 


GTMT2 


YES 


in 


1956 


07271 


063325 


GTMTl 


LDA 


L.21 


NO, OUTPUT 


CF] 


1957 


07272 


067425 




LDB 


ILSCL 


ERROR 


CFJ 


1958 


07273 


117377 




JSB 


ASRDA,I 


*«ESSAGE 


tE3 


1959 


07274 


027252 




JMP 


GETMTtl 


REQUEST AGAIN 


CFJ 


1960 


07275 


017233 


GTMT2 


JSB 


GETCR 


CARRIAGE RETURN FOLLOWS? 


[F3 


1961 


07276 


002001 




PSS 




YES 


CF3 


1962 


07277 


027271 




JMP 


GTMTl 


NO 


[E3 


1963 


07300 


163401 




LDA 


MTFLA,I 


FLAG 


CF3 


1964 


07301 


033337 




lOR 


SGNBT 


AS 


CE3 


1965 


07302 


173401 




vSTA 


MTFLA,I 


7970 


CE3 


1966 


07303 


037251 


GTMT3 


ISZ 


GETMf 




CE3 


1967 


07304 


127251 




JMP 


GETMT,I 




CF3 
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1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

2004 

2005* 

2006 

2007 

2008 

2009 

2010 

2011* 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 



07305 
07306 
07307 
07310 
07311 
07312 
07313 
07314 
07315 
07316 
07317 
07320 
07320 
07321 
07321 
07322 
07323 
07324 
07325 
07326 
07327 
07330 
07331 
07332 
07333 
07334 
07335 
07336 
07337 
07340 
07341 
07342 
07343 
07344 
07345 
07357 

07365 
07366 
07367 
07370 
07371 

07372 
07373 
07374 
07375 
07376 
07377 
07400 
07401 
07402 
07403 
07404 
07405 



177577 
177700 
177701 
177706 
177770 
177774 
177776 
177777 
000002 
000003 
000011 
000012 

000015 

000017 
000021 
000024 
000025 
000027 
000030 
000047 
000054 
000060 
000100 
000377 
000400 
077777 
100000 
165300 
000040 
000052 
000055 
006400 
000001 
002000 

140100 
023700 
012000 
001600 
000165 

025200 
000140 
000160 
007345 
011641 
002010 
006034 
005666 
004355 
005057 
004626 
005370 



LM129 DEC "129 

LM64 DEC -64 

LD77 OCT -77 

LD72 OCT -72 

LM8 DEC -8 

LM4 DEC -4 

LM2 DEC -2 

LMl DEC -1 

li,2 DEC 7 

li.3 DEC 3 

LBU OCT 11 

L.IO DEC 10 

LB12 EQU L.IO 

L.13 DEC 13 

LB 15 Em L.13 

L.15 DEC 15 

L.17 DEC 17 

L.20 DEC 20 

L,21 DEC 21 

L.23 DEC 23 

L.24 DEC 24 

L.39 DEC 39 

LB54 OCT 54 

LB60 OCT 60 

LBIOO OCT 100 

LB377 OCT 377 

LB400 OCT 400 

INF OCT 77777 

SGNBT OCT 100000 

MXADT DEC -5440 

BLANK OCT 40 

STAR OCT 52 '*' 

DASH OCT 55 

B6400 OCT 6400 CARRIAGE RETURN - NULL 

BMASK OCT 1,2,4,10,20,40,100,200,400,1000 

OCT 2000,4000,10000,20000,40000,100000 

MAXAD OCT 140100 
SYSTA ABS 37700B-14000B 
MAXBA ABS 14000B-2000B 
BPAGA ABS 2000B-200B 
XNRPA ABS 200B-13B 



[FJ 



CF] 



CF3 



ADTBF 

LTRAX 

LDTBL 

BMSKA 

EBUFA 

ASRDA 

MTSCA 

MTFLA 

L22A 

L46A 

ERR5A 

ERR7A 



DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 



ADTBL 

TRAX 

DTBL 

BMASK 

EBUF 

TTY35 

MTSC 

MTFLG 

LDR22 

LDR46 

ERRS 

ERR7 



ADT BUFFER ADDRESS 
ADDRESS OF AVAILABLE TRACK TABLE 
DISC SELECT CODE TABLE ADDRESS 
ADDRESS OF BIT MASK TABLE 
ADDRESS OF ERROR BUFFER 
ADDRESS OF TTY DRIVER 

CF3 
CFJ 
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CONSTANTS, TEMPORARIES, ETC. 



2024 07406 005661 TMPIA DEF TEMPI 

2025 07407 005662 TMP2A DEF TEMP2 
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2027 


07410 


000000 


LTMPO 


BSS 


1 




2028 


07411 


000000 


LTMPl 


BSS 


1 




2029 


07412 


000000 


LTMP2 


BSS 


1 




2030 


07413 


000000 


LTMP3 


BSS 


1 




2031 


07414 


000000 


LTMP4 


BSS 


1 




2032 


07415 


000000 


LTMP5 


BSS 


1 




2033 


07416 


000000 


LTMP6 


BSS 


1 




2034 


07417 


000000 


MFLAG 


BSS 


1 


LOCK/UNLOCK 


2035 


07420 


000000 


DEST 


BSS 


1 




2036 


07421 


000000 


SOURC 


BSS 


1 




2037 


07422 


000000 


MCNT 


BSS 


1 




2038 


07423 


000000 


BADDR 


BSS 


1 


POINTER TO N 


2039* 














2040 


07424 


006075 


BDDLA 


DEE 


BDDL 




2041 


07425 


006121 


IhSCh 


0EE 


IliSCD 




2042 


07426 


007433 


ILTRA 


DEF 


ILTRL 




2043 


07427 


007447 


BDADA 


DEF 


BADAD 




2044 


07430 


007460 


BADDA 


DEE 


BADD 




2045 


07431 


007471 


BADPA 


DEF 


BADP 




2046 


07432 


007500 


TRKNA 


DEF 


TRKNL 




2047* 














2048 


07433 


005111 


ILTRL 


OCT 


5111 




2049 


07434 


046114 




ASC 


io,lle<;al 


TRACK LENGTH 


2050 


07446 


006400 




OCT 


6400 




2051 


07447 


005111 


BADAD 


OCT 


5111 




2052 


07450 


046114 




ASC 


7,LLEGAL i 


^IDDRESS 


2053 


07457 


006400 




OCT 


6400 




2054 


07460 


005102 


BADD 


OCT 


5102 




2055 


07461 


040504 




ASC 


7, AD DISC 


NUMBER 


2056 


07470 


006400 




OCT 


6400 




2057 


07471 


005102 


BADP 


OCT 


5102 




2058 


07472 


040504 




ASC 


5, AD TRACK # 


2059 


07477 


006400 




OCT 


6400 




2060 


07500 


005103 


TRKNL 


OCT 


5103 




2061 


07501 


040516 




ASC 


9,ANN0T LOCK TRACK I 



2063* 



IF] 
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2065* 

2066* 

2067* 

2068* 

2069* 

2070 

2071 

2072 

2073 

2074 

2075 

2076* 

2077** 

2078* 

207^* 

2080* 

2081* 

2082* 

2083* 

2084* 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110* 

2111** 

2112* 

2113 

2114 

2115 

2116 

2117 

2118 

2119 



IF THE MAG TAPE SELECT CODE IS NON-ZERO, TSB IS DUMPED IN ITS 
ENTIRETY. ON MAG TAPE FAILURES CHLT 11 OCT) THE DUMP MAY BE 
RETRIED BY CORRECTING THE CAUSE OF ERROR AND PRESSING 'RUN'. 



10000 

10000 064164 

10001 006003 

10002 026260 

10003 005665 

10004 017457 



ORG lOOOOB 
MTDMP LDB MAGSC 
5ZB,RSS 
JMP MTDM8 
ELB,CLE,ERB 
JSB MTDIN 



MOVE USER LIBRARY TRACK TABLE 



LOAD MAG TAPE SELECT CODE 

NON-ZERO? 

NO 

CLEAR BIT15 [F] 

YES, CONFIGURE MAG TAPE DRIVER 

* 



THE AREA OCCUPIED BY THE USER LIBRARY TRACK TABLE IS OVERWRITTEN 
DURING THE MAG TAPE DUMP, TO INSURE RESTARTIBILITY OF THE DUMp 
AFTER A MAG TAPE FAILURE, THE TABLE IS MOVED TO A SECTION OF 
CORE WHICH IS OTHERWISE UNUSED. 



10005 
10006 
10007 
10010 
10011 
10012 
10013 
10014 
10015 
10016 
10017 
10020 
10020 
10021 
10022 
10022 
10023 
10024 
10025 
10026 
10027 
10030 
10031 
10032 
10033 



063562 
073626 
063666 
073627 
167665 
160001 
173627 
006004 
037627 
037626 
026012 

067672 
002404 

072305 
076667 
077273 
016356 
000003 
016356 
000007 
100111 
006021 
026025 



LDA 
STA 
LDA 
STA 
LDB 
MTDMO LDA 
STA 
INB 
ISZ 

1st 

JMP 
MTDMl EQU 
LDB 
CLA 
MTVrS EQU 
STA 
STB 
STB 
MTRWD JSB 
OCT 
JSB 
OCT 
RRL 
SSB 
JMP 



DUMP EQUIPMENT TABLE 



10034 
10035 
10036 
10037 
10040 
10041 
10042 



062346 
173660 
063573 
067646 
117657 
063563 
067611 



LDA 
STA 
LDA 
LDB 
JSB 
LDA 
LDB 



DM255 

DTMPO 

DULTB 

DTHPl 

DULTT,! 

1 , X 

DTMPl,! 

DTMPl 
DTMpO 
MTDMO 

MSTOC 
,INA 
* 

MTVFL 
MTVLC 
MTVLQ 
MTD 
3 

MTD 
7 
9 
,RSS 
MTRWD 

BPLEN 

WORDN,! 

BSPGA 

BASPG 

DISCN,! 

DM64 

DDIRA 



SET LENGTH 

OF MOVE 
SET 

DESTINATION ADDRESS 
LOAD SOURCE ADDRESS 
MOVE 

A WORD 
ADVANCE 

POINTERS 
DONE? 

NO 

B => STA XWNEC,! 

A s WRITE REQUEST CODE 

COME HERE FOR VERIFY START 

STORE REQUEST CODE 

SET 3030 DRIVER FOR VERIFY 

SET 7970 FOR VERIFY 

REWIND 

TAPE 
GET 

STATUS 

START OF TAPE? 
NO 



READ 

SYSTEM 

BASE PAGE 
INTO 
CORE 
WRITE 

EQUIPMENT 



CF3 
CF3 
CF] 
CF] 
[FJ 
CF3 
CF3 
tF3 

CF] 
[F3 
[F] 
CF] 
[F] 



CFi 



CFJ 
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2120 

2121* 

2122** 

2123* 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132* 

2133** 

2134* 

2135 

2136 

2137 

2138 

2139 

2140* 

2141** 

2142* 

2143* 

2144* 

2145* 

2146* 

2147* 

2148* 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 



10043 016302 



DUMP ID TABLE 



** 
* 



10044 
10045 
10046 
10047 
10050 
10051 
10052 
10053 



064135 
177660 
060134 
067670 
117657 

060135 
067667 
016302 



DUMP TRACK TABLE 



10054 
10055 
10056 
10057 
10060 



063562 
073626 
067666 
077627 
016302 



DUMP USER LIBRARY 



JSB MTWR 



LD8 IDLEN 
STB WORDN,I 
LDA IDLOC 
LDB DTRKR 
JSB DISCN,-I 
LDA IDLEn' 
LDB DTRKB 
JSB MTWR 

* 
** 

* 
LDA DM255 
STA DT^PO 
LDB DULTB 
STB DTMPl 
JSB MTWR 

* 

TRACKS ** 
* 



TABLE TO TAPE 



READ 

ID TABLE 

PROM DISC 
WRITE 

ID TABLE 

ID TABLE TO TAPE 



WRITE 

USER LIBRARY TRACK TABLE 
TO TAPE 



CF3 



[F] 



fFI 



CF3 



tF3 



NON-ZERO ENTRIES IN THE USER LIBRARY TRACK TABLE HOLD THE 

LENGTH IN -WORDS FOR EACH DISC TRACK CONTAINING USER LIBRARY 
PROGRAMS. EACH SUCH TRACK IS DUMPED AS ONE RECORD IF NO 

LONGER THAN 5440 WORDS, OTHERWISE AS TWO RECORDS, 

10061 063621 LDA DB400 LOAD DISC ADDRESS 0,1,0 

10062 167627 MTDM2 LDB DTMPl,! USER LIBRARY 

10063 006003 SZB,RSS TRACK? 

10064 026110 JMP MTDM3 NO 

10065 177660 STB WORDN,I YES, SAVE LEl^GTH 

10066 073630 STA DTMP2 AND DISC ADDRESS 

10067 067670 LDB DTRKR READ USER PROGRAMS 

10070 117657 JSB DISCN,! FROM DISC 

10071 067667 LDB DTRKB LOAD BUFFER ADDRESS 

10072 163660 LDA WORDN,! WORD COUNT 

10073 043624 ADA D5440 GREATER 

10074 002021 SSA,RSS THAN 5440? 

10075 026105 JMP MTDEl NO 

10076 073631 STA CCNT YES, SAVE EXCESS COUNT 

10077 063561 LDA N5440 WRITE BLOCK 

10100 016302 JSB MTWR OF 5440 WORDS 

10101 063631 LDA CCNT hOhO WORD COUNT 

10102 067667 LDB DTRKB COMPUTE BUFFER 

10103 047624 ADB D5440 FOR REMAINDER 

10104 002001 RSS 

10105 163660 MTDEl LDA WORDN,! WRITE TRACK 

10106 016302 JSB MTWR TO TAPE 

10107 063630 LDA DTMP2 UPDATE DISC ADDRESS 

10110 043621 MTDM3 ADA DB400 TO NEXT TRACK 

10111 037627 ISZ DTMpi INCREMENT TABLE POINTER 

10112 037626 ISZ DTMPO ALL TRACKS CONSIDERED? 



CF] 

CF3 
CF] 



CF3 



CF] 
CF] 
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2175 


10113 


026062 




JMP 


MTDM2 


NO 




2176* 










t 






2177** DUMP DIRECTORY TRACKS 


4t* 






2178* 










* 






2179* 
















2180* 


EACH 


DIRECTORY TRACK OF NON-ZERO 


LENGTH IS DUMPED AS ONE 




2181* 


RECORD. AW 


END-Or- 


-FILE MARK FOLLOifsS THE LAST TRACK DUMPED, 




2182* 
















2183 


10114 


063566 




LDA 


DM4 


SET COUNTER FOR 




2184 


10115 


073626 




STA 


DTMPO 


DIRECTORY TRACKS 




2185 


10116 


063611 




LDA 


DDIRA 


LOAD DIRECTORY 




2186 


10117 


164000 


MTDM4 


LDB 


0,1 


LENGTH 




2187 


10120 


043574 




ADA 


D.6 


COMPUTE POINTER TO DISC ADDRESS 


2188 


10121 


006003 




SZB, 


.RSS 


EMPTY DIRECTORY TRACK? 




2im 


10122 


026134 




JMP 


WTDM5 


YES 




2190 


10123 


073627 




STA 


DTMPI 


NO, SAVE TABLE POINTER 




2191 


10124 


177660 




STB 


¥omn,i 


READ 


CFJ 


2192 


10125 


160000 




LDA 


0,1 


DIRECTORY 




2193 


10126 


067670 




LDB 


DTRKR 


TRACK 




2194 


10127 


117657 




JSB 


DISCN,! 


FROM DISC 


tF3 


2195 


10130 


163660 




LDA 


WORDN,! 


WRITE 


CF] 


2196 


10131 


067667 




LDB 


DTRKB 


DIRECTORY TRACK 




2197 


10132 


016302 




JSB 


MTWR 


TO TAPE 


CFJ 


2198 


10133 


063627 




LDA 


DTMPl 


UPDATE 




2199 


10134 


002004 


MTDM5 


INA 




TABLE POINTER 




2200 


10135 


037626 




ISZ 


DTMPO 


ALL FOUR DISCS CONSIDERED? 




2201 


10136 


026117 




JMP 


MTDM4 


NO 




2202 


10137 


016320 




JSB 


MTWF 


YES, WRITE EOF MARK 


CF3 


2203* 






* 










2204** DUMP SYSTEM 


[ t* 










2205* 






* 










2206* 
















2207* 


THE SYSTEM IS READ 


INTO CORE IN 


ITS ENTIRETY, IT IS DUMPED 


IN 


2208* 


SEGMENTS AS 


DEFINED m 


THE SYSTEM SEGMENT INFORMATION TABLE, 




2209* 
















2210 


10140 


062355 




LDA 


MTBLN 


WRITE SYSTEM 




2211 


10141 


066354 




LDB 


MLTBA 


SEGMENT TABLE 




2212 


10142 


016302 




JSB 


MTWR 


TO TAPE 


IF] 


2213 


10143 


163647 


-# 


LDA 


JSYS2,I 


LOAD 


[Fl 


2214 


10144 


173660 




STA 


WORDN,! 




tF] 


2215 


10145 


163650 




LDA 


JDRTT,I 




CF] 


2216 


10146 


167651 




LDB 


JSAD2,I 


SYSTEM 


CF3 


2217 


10147 


117657 




JSB 


DISCN,! 




CF] 


2218 


10150 


163652 




LDA 


Jsys3,i 




CFJ 


2219 


10151 


173660 




STA 


WORDN,! 


FROM 


[Fj 


2220 


10152 


163653 




LDA 


JDRT1,I 




CF] 


2221 


10153 


167654 




LDB 


JSAD3,I 




CF] 


2222 


10154 


117657 




JSB 


DISCN,! 


DISC 


CF] 


2223 


10155 


062354 




LDA 


MLTBA 


SET TABLE 




2224 


10156 


073627 




STA 


DTMPl 


POINTER 




2225 


10157 


062343 




LDA 


MLTBL 


SET 




2226 


10160 


002004 




INA 




SEGMENT 




2227 


10161 


073626 




STA 


DTMPO 


COUNTER 




2228 


10162 


037627 


MTDM6 


ISZ 


DTMPl 


LOAD 




2229 


10163 


104200 




OLD 


DTMPl,! 


TABLE 
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MAG TAPE DUMP 














2230 


10165 


037627 




ISZ 


DTMPl 




ENTRY 




2231 


10166 


016302 




JSB 


MTWR 




WRITE SEGMENT TO TAPE 


tFJ 


2232 


10167 


037626 




ISZ 


DTMPO 




MORE SEGMENTS? 




2233 


10170 


026162 




JMP 


MTDM6 




YES 




2234* 










* 








2235** DUMP SYSTEM 


LIBRARY ** 








2236* 










* 








2237* 


















2238* 


THE SYSTEM LIBRARY 


IS DUMPED 


ONE PROGRAM AT A TIME. hU 




2239* 


END-OF-FILE 


MARK FOLLOWS THE 


LAST OnE, 




2240* 


















2241 


10171 


163664 




LDA 


C0M6A, 


I 


SET POINTER TO ADDRESS TABLE 




2242 


10172 


073627 




STA 


DTMPl 




OF SYSTEM LIBRARY PROGRAMS 




2243 


10173 


067563 




LDB 


DM64 




READ 




2244 


10174 


177660 




STB 


TOR#N, 


I 




tFl 


2245 


10175 


163627 




LDA 


DTMPl, 


I 


LENGTH TABLE 




2246 


10176 


067671 




LDB 


DMTRL 








2247 


10177 


077630 




STB 


DTMP2 




OF SYSTEM 




2248 


10200 


047625 




ADB 


BIOOK 








2249 


10201 


117657 




JSB 


DISCN, 


I 


LIBRARY PROGRAMS 


CFJ 


2250 


10202 


163630 




LDA 


DTMP2, 


I 


SET ENTRY COUNTER 




2251 


10203 


073626 




STA 


DTMPO 




OF LENGTH TABLE 




2252 


10204 


163630 


MTDM7 


LDA 


DTMP2, 


I 


READ 




2253 


10205 


173660 




STA 


WORDN, 


I 


SYSTEM 


[F3 


2254 


10206 


163627 




LDA 


DTMPl, 


I 


LIBRARY 




2255 


10207 


067670 




LDB 


DTPKR 




PROGRAM 




2256 


10210 


117657 




JSB 


DISCN, 


I 


FROM DISC 


CF] 


2257 


10211 


163630 




LDA 


DTMP2, 


I 


WRITE 




2258 


10212 


067667 




LDB 


DTRKB 




IT TO 




2259 


10213 


016302 




JSB 


MTWR 




TAPE 


£F3 


2260 


10214 


037627 




ISZ 


DTMPl 




ADVANCE 




2261 


10215 


037630 




ISZ 


DTMP2 




POINTERS 




2262 


10216 


037626 




ISZ 


DTMPO 




DONE? 




2263 


10217 


026204 




JMP 


MTDM7 




NO 




2264 


10220 


016320 




JSB 


MTWF 




YES, WRITE EOF MARK 


CF] 


2265 


10221 


062305 




LDA 


MTVFL 




WAS THIS PASS VERIFY 


CF3 


2266 


10222 


002003 




SZA, 


,RSS 






CF3 


2267 


10223 


026256 




JMP 


MTDMV 




VERIFY COMPLETED OKAY 


[F3 


2268 


10224 


016356 




JSB 


MTD 




REWIND 


£F3 


2269 


10225 


000003 




OCT 


3 






CF] 


2270 


10226 




MTESQ 


EQU 


* 






CF] 


2271 


10226 


063600 




LDA 


D.IO 






CF] 


2272 


10227 


067701 




LDB 


VRFYA 




PRINT "VERIFY" 


CF] 


2273 


10230 


117656 




JSB 


TT35I, 


I 


QUESTION 


CF] 


2274 


10231 


002400 




CLA 








CF] 


2275 


10232 


117656 




JSB 


TT35I, 


I 


CALL FOR INPUT 


CF] 


2276 


10233 


117655 




JSB 


MGTCA, 


I 


GET THE FIRST CHARACTER 


CF] 


2277 


10234 


026241 




JMP 


MTENR 




EMPTY LINE IS ERROR 


CF] 


2278 


10235 


053645 




CPA 


.Y 




OPERATOR TYPE "YES"? 


CF] 


2279 


10236 


026245 




JMP 


MTGVT 




YES, GO VERIFY TAPE 


CF] 


2280 


10237 


053644 




CPA 


,N 




OPERATOR TYPE "NO"? 


CF] 


2281 


10240 


026250 




JMP 


MTDMU 




MUST NOT DESIRE VERIFY 


CF] 


2282 


10241 




MTENR 


EQU 


* 






CF] 


2283 


10241 


063602 




LDA 


DB17 






CF] 


2284 


10242 


067675 




LDB 


ILINM 




"ILLEGAL INPUT" 


CF] 
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MAG TAPE DUMP 












2285 


10243 


117656 




JSB 


TT35I,I 


COMPLAIN ABOUT QUALITY OF 


CFJ 


2286 


10244 


026226 




JMP 


MTESQ 


ANSWER, 


CF] 


2287 


10245 




MTGVT 


EQU 


* 




CFJ 


2288 


10245 


002400 




CLA 




CODE FOR VERIFY 


CF3 


2289 


10246 


067673 




liDB 


MCPAC 


LOAD COMPARE INSTRUCTION^ 


CF] 


2290 


10247 


026022 




JMP 


MTVFS 


REPEAT SLEEP PROCESS, 


CF3 


2291* 












WITH MINOR CHANGES 


CF3 


2292 


10250 


002400 


MTDMU 


CLA 




SPACE ZERO FILES AND 


CFJ 


2293 


10251 


006404 




CLB, 


pINB 


ONE RECORD FORWARD 


CF] 


2294 


10252 


016356 




JSB 


MTD 




CF] 


2295 


10253 


000004 




OCT 


4 




CF] 


2296 


10254 


026312 




JMP 


MTDER 




CF] 


2297 


10255 


026312 




JMP 


MTDER 




CFJ 


2298 


10256 




MTDMV 


EQU 


* 




CF] 


2299 


10256 


016356 




JSB 


MTD 


REWIND AND 




2300 


10257 


000005 




OCT 


5 


STANDBY 




2301 


10260 


162275 


MTDM8 


LDA 


ADD2K,I 


SET 




2302 


10261 


172276 




STA 


ADD3K,T 


ALL 




2303 


10262 


066277 




LDB 


ADD4K 


STARTING 




2304 


10263 


062300 




LDA 


HLT22 


SEQUENCES 




2305 


10264 


170001 




STA 


1,1 


TO PRODUCE 




2306 


10265 


006004 




INB 




AN IRRECOVERABLE 




2307 


10266 


062301 




LDA 


JMPMl 


HLT 22B 




2308 


10267 


170001 




STA 


1,1 






2309 


10270 


063576 




LDA 


DBIO 


PRINT 




2310 


10271 


067674 




LDB 


DONEA 


'DONE' 




2311 


10272 


117656 




JSB 


TT35I,I 




CF] 


2312 


10273 


102077 




HLT 


77B 


ALLOW NEW DUMP 


CE] 


2313 


10274 


026020 




JMP 


MTDMl 


ON 'RUN' 


CE3 


2314* 
















2315 


10275 


002000 


ADD2K 


OCT 


2000 


UTILITY WORDS FOR 




2316 


10276 


003000 


ADD3K 


OCT 


3000 






2317 


10277 


004031 


ADD4K 


DEF 


LDR+1 


DISABLING LOADER WITHOUT 


CF] 


2318 


10300 


102022 


HL.T22 


HLT 


22B 






2319 


10301 


026000 


JMPMl 


OCT 


26000 


RELOADING TSB LOADER TApE 


2320* 














CF] 


2321 


10302 


000000 


MTWR 


NOP 




WRIIE OR VERIFY RECORD 


CF] 


2322 


10303 


072320 




STA 


MTWF 


SAVE BUFFER LENGTH 


CF] 


2323 


10304 


016356 




JSB 


MTD 




CF] 


2324 


10305 


000001 


MTVFL 


OCT 


1 


THIS WORD IS A ONE FOR SLEEP, 


rCF] 


2325* 












CHANGED TO A ZERO FOR VERIFY 


CF] 


2326 


10306 


026312 




JMP 


MTDER 


TAPE 


CF] 


2327 


10307 


026312 




JMP 


MTDER 


ERRORS 


CF] 


2328 


10310 


052320 




CPA 


MTWF 


CHECK RECORD LENGTH 


CF] 


2329 


10311 


126302 




JMP 


MTWR, I 




CF] 


2330* 






* 










2331** TAPE ERROR 


*♦ 










2332* 






* 










2333 


10312 


107700 


MTDER 


CLC 


0,C 




CF] 


2334 


10313 


063604 




LDA 


D.24 


PRINT 


CF] 


2335 


10314 


067676 




LDB 


TAPMA 


TAPE ERROR 




2336 


10315 


117656 




JSB 


TT35I,I 


MESSAGE 


CF] 


2337 


10316 


102011 




HLT 


UB 


WATT FOR 




2338 


10317 


026020 




JMP 


MTDMl 


RETRY 




2339* 














CF] 
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2340 


10320 


000000 


WTWF 


NOP 




TO WRITE OR VERIFY 


2341 


10321 


002400 




CliA 






2342 


10322 


052305 




CPA 


MTVFL 


WRITE OR VERIFY? 


2343 


10323 


026331 




JMP 


MTWFY 


VERIFY 


2344 


10324 


016356 




JSB 


MTD 


WRITE AN EOF MARK 


2345 


10325 


000002 




OCT 


2 




2346 


10326 


026312 




JMP 


MTDER 


TAPE 


2347 


10327 


026312 




JMP 


MTDER 


ERRORS 


2348 


10330 


126320 




JMP 


MTWF,I 




2349 


10331 




MTWFY 


EQU 


* 




2350 


10331 


063565 




LDA 


DM5 


TRY TO READ A SHOR 


2351 


10332 


067667 




LDB 


DTRKB 


RECORD into BUFF 


2352 


10333 


016356 




JSB 


MTD 




2353 


10334 


000000 




OCT 







2354 


10335 


026340 




JMP 


MTWFZ 




2355 


10336 


026312 




JMP 


MTDER 


EXPECT EPID OF FILE 


2356 


10337 


026312 




JMP 


MTDER 


EXPECT EWD Q^ FILE 


2357 


10340 


057616 


MTWFZ 


CPB 


DB200 


EOF STATUS? 


2358 


10341 


126320 




JMP 


MTWF,I 


YES, OKAY 


2359 


10342 


026312 




JMP 


MTDER 


HQ 



CF3 
CF] 
CF] 
CF] 
CF] 
tF] 
CF] 
CF] 
[Fl 
CF] 
[F] 
CF] 
CF] 
CF] 
CF] 
CF] 
CF] 
CF] 
CF] 
CF] 



2361* 

2362** 

2363* 

2364* 

2365* 

2366* 

2367* 

2368* 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 



SYSTEM SEGMENT INFORMATION TABLE 



** 

* 



THE FIRST WORD OF THE TABLE GIVES THE NUMBER OF SEGMENTS. THE 
TWO-WORD SEGMENT ENTRIES ARE THE LENGTH OF THE SEGMENT IN -WORDS 
AND THE ABSOLUTE CORE ADDRESS. 



10343 177773 

10344 177767 

10345 000002 

10346 176200 

10347 000200 

10350 177751 

10351 004001 

10352 154500 

10353 014000 
10354 

10354 010343 

10355 177767 



SYSTEM 



SEGMENT 



TABLE 



CF] 



MLTBL DEC -5 

ABS 2-13B 

OCT 2 
BPLEN ABS 200B-2000B 

OCT 200 

ABS LSLTB-LSLTE 

DEF LSLTB 

ABS 14000B-37300B 

OCT 14000 
MLTBE EQU * 

MLTBA DEF MLTBL SYSTEM SEGMENT TABLE ADDRESS 
MTBLN ABS MLTBL-MLTBE SYSTEM SEGMENT TABLE LENGTH 
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2382 

2383 

2384* 

2385* 

2386* 

2387* 

2388* 

2389* 

2390* 

2391* 

2392* 

2393* 

2394* 

2395* 

2396* 

2397* 

2398* 

2399* 

2400* 

2401* 

2402* 

2403* 

2404* 

2405* 

2406* 

2407* 

2408* 

2409* 

2410* 

2411* 

2412* 

2413* 

2414* 

2415* 

2416* 

2417* 

2418* 

2419* 

2420* 

2421* 

2422* 

2423* 

2424* 

2425* 

2426* 

2427* 

2428* 

2429* 

2430* 

2431* 

2432* 

2433* 

2434* 

2435* 

2436* 



00000 
00000 



CMND 
DATA 



EOU 
EQU 



CALLING SEQUENCE: (WRITE/READ) 

LDA <BUFFER LENGTH> (>0=CHARS, <0=WORDS) 

LDB <BUFFER ADDRESS> 

JSB MTAPE,I 

OCT <COMMAND CODE> (0=READ, 1=WRITE) 

<EOF/EOT RETURW> 

<EREOR RfTURN> 

<NORMAL RETURN> CA}sRECORD LENGTH, (B)=STATUS 

READ AND WRITE REQUESTS OF LENGTH ARE RETURNED 
BY THE DRIVER TO THE NORMAL RETUR?^ LOCATION 
WlftfeUT km TApf MeV^EWEMT. 

THE FIRST WORD OF 2 BYTES WRITTEN ON TAPE IS THE 
USER'S REQUEST LENGTH. THIS VfORD IS NOT STORED 
IN THE USER'S BUFFER BY A READ REQUEST, BUT IS 
LEFT IN THE A REGISTER tu THE FORM WHICH THE 
USER SPECIFIED (tCHARACTERS OR -WORDS) AS THE 
TAPE RECORD LENGTH IF THE TAPE RECORD < THE 
BUFFER REQUEST LENGTH. 

SINCE THE MINIMUM TAPE RECORD LENGTH WHICH CAi^ BE 
WRITTEN OR READ IS 12 CHARACTERS OR 6 WORDS, 
WRITE REQUESTS SMALLER THAN 5 WORDS WILL BE 
WRITTEN AS AN EXTENDED RECORD OF 6 WORDS 
(INCLUDING THE RECORD LENGTH WORD). 

ALL USER READ BUFFERS SHOULD HAVE A MlNyMUM STORAGE 

AREA OF 5 WORDS SINCE THE SMALLEST RECORD THAT CAN 

BE READ FROM THE TAPE IS 6 WORDS, THE RECORD LENGTH 

WORD IS STRIPPED BY THE DRIVER AND IS NOT STORED IN 
THE USER BUFFER. 

CALLING SEQUENCE: (REWIND/REWIND STANDBY/STATUS) 
USB MTAPE,I 

OCT <COMMAND CODE> (3-REWIND, 7=STATUS, 
<NORMAL RETURN> 5=REWlNn & STANDBY) 



CALLING SEQUENCE: (GAP/WRITE END OF FILE) 
JSB MTAPE,I 

OCT <COMMAND CODE> C6=GAp, 2=END OF FILE) 
<EQF/EOT RETURN> 
<ERROR RETURN> 
<NORMAL RETURN> (B) = STATUS 



CALLING SEQUENCE: (POSITION) 

LDA <FILE COUNT> (-l-=FORWARD, 
LDB <RECORD COUNT> « 
JSB MTAPE,I 
OCT 4 



'=REVERSE) 

N 



PAGE 0057 #0i 

MAG TAPE DRIVERS 



12:13 PM 



TUE 



23 OCT,, 1979 



2437* 
2438* 
2439* 
2440* 
2441* 
2442* 
2443* 
2444* 
2445* 
2446* 
2447* 
2448* 
2449* 
2450* 

2451r* 

2452* 
2453* 
2454* 
2455* 
2456* 
2457* 
2458* 
2459* 
2460* 
2461* 
2462* 
2463* 
2464* 
2465* 
2466* 
2467* 
2468* 
2469* 
2470* 
2471* 
2472* 
2473* 
2474* 
2475* 
2476* 
2477* 
2478* 
2479* 
2480* 
2481* 
2482* 
2483* 
2484* 
2485* 
2486* 
2487* 
2488* 
2489* 
2490* 
2491* 



<EOF/EOT RETURN> 
<ERROR RETURN> 
<NORMAli RETURN> 



(A)=FILE COUNT, CB)=STATUS 



A BACKFILE liEAVES THE TAPE POSITIONED ON THE SIDE OF 
THE N-TH FILE MARK C-N IN A FOR BACKFILE) AWAY FROn 
LOAD POINT. THUS CA) = -2 LEAVES THE TAPE AT THE 
BEGINNING OF THE FILE PRECEEDING THE CURRENT FILE. 

RECORD OPERATIONS WILL MOVE THE TAPE THE APPROPRIATE 
# OF RECORDS. THE FILE MARK IS COUNTED AS 1 RECORD. 

COMMANDS TRYING TO CROSS THE SOT OR EOT MARKERS WILL 
CAUSE AN EXIT TO THE END OF TAPE RETURN POINT, 

END OF TAPE ON READ, WRITE OR GAP WILL BE CHECKED 
BEFORE THE OPERATION is INITIATED. 

TAPE COMMANDS - 
OCT - READ 

1 - WRITE 

2 - WRITE END OF FILE 
1 - REWIND 

4 - POSITION 

5 - REWIND AND STANDBY 

6 - GAP (3« BLANK TAPE) 

7 - STATUS (RETURNS STATUS IN -B- ) 



THE STATUS WORD BIT ASSIGNMENTS FOR THE 3030 ARE: 



BIT 

1 
2 
3 



MEANING 
BUSY (TAPE IN MOfjON OR LOCAL STATUS) 
PARITY ERROR 

WRITE NOT ENABLED OR TAPE REWINDING 
reject: 1 MOTION REQ'D AND CONTROLLER BUSY 

2 BACKWARD MOTION REQ'D & AT LOAD POINT 

3 WRITE COMMAND GIVEN AND NO WRITE RING 
TIMING ERROR 

END OF TAPE 
START OF TAPE 
END OF FILE 
LOCAL MODE 



THE STATUS WORD BIT ASSIGNMENTS FOR THE 7970 ARE: 
BIT MEANING 

TAPE UNIT NOT ON-LINE 

1 PARITY AND/OR TIMING ERROR 

2 FILE PROTECTED (NO WRITE ENABLE RING) 

3 reject: 1 MOTION REQ'D AND CONTROLLER BUSY 

2 BACKWARD MOTION REQ'D & AT LOAD POINT 

3 WRITE COMMAND GIVEN AND NO WRITE RING 



CF] 
IF) 



CF3 
[FJ 
[F3 
[F] 
[F] 
£F3 
CF] 
CF3 
CF3 
[F] 
CF] 
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CF] 


2492* 


4 


TIMING ERROR 




2493* 


5 


END OF TAPE 




2494* 


6 


START OF TAPE 




2495* 


7 


END OF FILE 




2496* 


8 


CONTROLLER BUSY 




2497* 


9 


TAPE UNIT MOT READY 




2498* 


10 


TAPE UNIT REWINDING 




2499* 


11 


ODD NUMBER OF BYTES READ 





TUE 



23 OCT, 



1979 



[F] 
tF] 
CF3 
CFJ 
CF] 
CF] 
[F] 
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2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2^515 

2516 

2517 

2518* 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528» 

2529 

2530 

2531 

2532 

2533 

2534* 

2535 

2536 

2537 

2538 

2539 

2540* 

2541 

2542 

2543* 

2544* 

2545* 

2546* 

2547* 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 



10356 

10357 

10360 

10361 

10362 

10363 

10364 

10365 

10366 

10367 

10370 

10371 

10372 

10373 

103^74 

10375 

10376 

10377 
10400 
10401 
10402 
10403 
10404 
10405 
10406 
10407 

10410 
10411 
10412 
10413 
10414 

10415 
10416 
10417 
10420 
10421 



000000 
073633 
077632 
060164 
002020 
027026 
102500 
013607 
073636 
016774 
063620 
017006 
162356 
036356 
013575 
042377 
124000 

110400 
010623 
010553 
010543 
010415 
010424 
010422 
010536 
010534 

016530 
036356 
036356 
063633 
126356 

063617 
102600 
002006 
026417 
126356 



10422 063612 

10423 026416 



MTD NOP 
STA 
STB 
LDA 
SSA 
JMP 

MT,21 LIA 
AND 
STA 
JSB 

MT,52 LDA 
JSB 
LDA 
ISZ 
AND 
ADA 
JMP 



BUFL 
BUFA 
MAGSC 

XMTD 

CMND 

DB40 

EOTF 

AUTCK 

DB300 

CMAND 

MTD, I 

MTD 

mi 

TBASE 
0,1 



TBASE DEF *+l,I 
DEF READT 
DEF WRITE 
DEF WEOF 
DEF REW 
DEF POS 
DEF RES 
DEF GAP 
DEF STAT 

EXIT JSB STIN 
ISE MTD 
ISZ MTD 
LDA BUFL 
JMP MTD, I 

REM LDA DB201 
MT.20 OTA CMND 
INA,SZA 
JMP *-l 
JMP MTD, I 



RES 



LDA DBlOl 
JMP MT.20 



** MAG TAPE DRIVER ENTRy ** 
SAVE LENGTH AND 
ADDRESS OF BUFFER 

7970? 

YES 

SET EOT FLAG 



INSURE TAPE UNIT IN AUTO 
ISSUE A CLEAR COMMAND TO 

THE CONTROLLER AND WAIT, 
FETCH OPERATION CODE 
INCREMENT RETURN POINT (P+2) 

LOOK UP PROCESSOR IN TABLE 
CALL PROCESSOR 

COMMAND PROCESSOR ENTRY 
POINT TABLE 



CF] 
CF3 
CF] 



[E3 



GET STATUS, RECORD COUNT 
AND EXIT 



REWIND 

TIME OUT FOR TAPE UNIT 
TO ACCEPT COMMAND 



REWIND AND STANDBY 



TAPE POSITIONING ROUTINE 



ENTER WITH COMMANDS STORED IN BUFL AND BUFA 



10424 067633 

10425 016502 

10426 026436 

10427 063633 

10430 002020 

10431 026451 

10432 016515 

10433 026432 



POS LDB BUFL GET FILE COUNT 

JSB ABS SET FLAGS, COMMANDS AND COUNT 

JMP P,l # FILES = 0, DO RECORDS 

LDA BUFL 

SSA TEST FWD/REV 

JMP P. 2 BACKSPACE FILES 

JSB SPACE FORWARD SPACE 

JMP *-l REPEAT UNTIL FILE 
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2556 


10434 


037635 


ISZ 


CNT 


CHECK FOP FINISHED 


2557 


10435 


026432 


JMP 


*-3 


NO, LOOP 


2558 


10436 


067632 


P.l LDB 


BUFA 


PROCESS RECORDS 


2559 


10437 


016502 


JSB 


ABS 


SET FOR FWD/REV RECORD SPACING 


2560 


10440 


026410 


JMP 


EXIT 


NO RECORDS, EXIT 


2561 


10441 


063632 


LDA 


BUFA 




2562 


10442 


002020 


SSA 




TEST FWD/REV 


2563 


10443 


026472 


JHP 


P. 3 


BACKSPACE RECORD 


2564 


10444 


016515 


JSB 


SPACE 


FORWARD SPACE 


2565 


10445 


000000 


NOP 




COUNT FILE MARK AS ONE RECORD 


2566 


10446 


037635 


IBZ 


CNT 


FINISHED? 


2567 


10447 


026444 


JMP 


*-3 


NO , LOOP 


2568 


10450 


026410 


JMP 


EXIT 


YES RETURN 


2569* 












2570 


10451 


016530 


P,2 JS& 


ST IN 


GBf TAPE STATUS (BACKFILE) 


2571 


10452 


013611 


AND 


DBIOO 


MASK FOR SOT 


2572 


10453 


002002 


SZA 






2573 


10454 


026467 


JMP 


P. 4 


SOT SET - EXIT IF CNT > 1 


2574 


10455 


063634 


LDA 


WCNT 




2575 


10456 


017006 


JSB 


CMAND 


BACKSPACE 


2576 


10457 


013616 


AND 


DB200 




2577 


10460 


002003 


SZA, 


rRSS 


EOF? 


2578 


10461 


026451 


JMP 


P,2 


NO, LOOP 


2579 


10462 


037635 


ISZ 


CNT 


DONE? 


2580 


10463 


026451 


JMP 


P. 2 


NO, LOOP AGAIN 


2581 


10464 


037632 


1st 


BUFA 


BUMP RECORD COUNTER TO RECROSS 


2582 


10465 


026436 


JMP 


P.l 


LAST FILE MARK AND DO RECORDS 


2583 


10466 


026410 


JMP 


EXIT 


NO RECORDS NOW, EXIT 


2584* 












2585 


10467 


037635 


P. 4 ISZ 


CNT 


CNT = -1? 


2586 


10470 


126356 


JMP 


MTD,I 


NO, TRIED TO CROSS SOT, ERROR 


2587 


10471 


026436 


JMP 


P,l 


YES, DO RECORD SPACING 


2588* 












2589 


10472 


063634 


P. 3 LDA 


WCNT 


BACKSPACE RECORD 


2590 


10473 


017006 


JSB 


CM AND 




2591 


10474 


013611 


AND 


DBIOO 




2592 


10475 


002002 


SZA 




SOT? 


2593 


10476 


126356 


JMP 


MTD,T 


YES - EOT EXIT 


2594 


10477 


037635 


ISZ 


CNT 


DONE? 


2595 


10500 


026472 


JMP 


P. 3 


NO, LOOP 


2596 


10501 


026410 


JMP 


EXIT 




2597* 












2598 


10502 


000000 


ABS NOP 




SET-UP ROUTINE 


2599 


10503 


063571 


LDA 


D.3 


FORIf^ARD SPACE COMMAND 


2600 


10504 


006020 


SSB 




IF # IS < SET FOR 


2601 


10505 


063610 


LDA 


DB41 


BACKSPACE COMMAND 


2602 


10506 


073634 


STA 


WCNT 




2603 


10507 


006021 


SSB, 


-RSS 


GET -ABSCiD FOR CNT 


2604 


10510 


007004 


CMB, 


,INB 




2605 


10511 


077635 


STB 


CNT 




2606 


10512 


006002 


SZB 




IF = EXIT CALL + 1 


2607 


10513 


036502 


ISZ 


ABS 


OTHERWISE CALL + 2 


2608 


10514 


126502 


JMP 


ABS, I 




2609* 












2610 


10515 


000000 


SPACE MOP 




SPACE TAPE 



PAGE 0061 #01 

3030 MAG TAPE DRIVER 



12:13 PH TUE,, 23 OCT,, 1979 



2611 

2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 

2621* 

2622 

2623 

2624 

2^25 

2626* 

2627 

2628 

2629* 

2630* 

2631* 

2632 

2633 

2634 

2635 

2636 

2637* 

2638* 

2639* 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

2665 



10516 
10517 
10520 
10521 
10522 
10523 
10524 
10525 
10526 
10527 



016530 
013607 
002002 
126356 
063634 
017006 
013616 
002002 
036515 
126515 



10530 000000 

10531 102500 

10532 106500 
105^3 126530 

10534 016530 

10535 126356 



10536 016761 

10537 017014 

10540 063577 

10541 017006 

10542 026410 



10543 
10544 
10545 
10546 
10547 
10550 
10551 
10552 
10553 
10554 
10555 
10556 
10557 
10560 
10561 
10562 
10563 
10564 
10565 
10566 
10567 
10570 
10571 
10572 
10573 
10574 



016761 
063606 
017006 
023616 
033636 
002002 
126356 
026410 
017014 
016761 
016746 
006021 
063565 
043570 
073635 
073634 
067632 
047570 
063605 
102600 
063633 
001727 
102300 
026571 
103600 
006004 



STIN 
S,2 



STAT 



JSB STIN 

AND DB40 

S2A 

JMP MTD,I 

LDA WCNT 

JSB CMAND 

AND DB200 

SZA 

TSZ SPACE 

JMP SPACE, I 

nop 

LIA CMND 
LIB CMND 
MP STIN, I 

JSB STIN 
JMP MTD,I 



GET TAPE STATUS 
CHECK FOP EOT 

EOT EXIT 

SPACE 

CHECK FOP EOF 

RETURN CALL + 1 FOR EOF 



GET TAPE STATUS 



GET TAPE STATUS 
EXIT DRIVER 



WRITE 3" BLANK TAPE 



GAP JSB WNEC 
JSB EOTC 
LDA DBll 
JSB CMAND 
JMP EXIT 

WRITE END OF FILE 



CHECK FOR WRITE RING IK 
CHECK FOR END OF TAPE 
COMMAND 

NORMAL EXIT 



WEOF 



WRITE 



RETRY 



MT.IO 

OUT 
MT.8 

MT,9 



JSB 

LDA 

JSB 

XOR 

lOR 

SZA 

JMP 

JMP 

JSB 

JSB 

JSB 

SSB, 

LDA 

ADA 

STA 

STA 

LDB 

ADB 

LDA 

OTA 

LDA 

ALF, 

SFS 

JMP 

OTA 

INB 



WNEC 

DB35 

CMAND 

DB200 

EOTF 

MTD,I 

EXIT 

EOTC 

WNEC 

CNTR 

RSS 

DM5 

DM! 

CNT 

WCNT 

BUFA 

DM! 

DB31 

CMND 

BUFL 

ALF 

DATA 

*-l 

DATA,( 



CHECK FOR WRITE RING IN 
WRITE FILE MARK CODE 



CHECK EOT 



WRITE ** 

CHECK FOR WRITE RING IN 

GET NEG # WORDS 

IS REQUEST AT LEAST 5 WORDS? 

NO, PAD BUFFER 

ADD 1 FOR RECORD LENGTH 

SAVE WORD COUNT 
GET BUFFER ADDRESS 
INITIALIZE SUFFER POINTER 
WRITE CHARACTERS CODE 
START FORWARD TAPE MOTION 
FIRST WRITTEN WORD IS BUFL 
POSITION FIRST BYTE 

WAIT FOR DATA CHANNEL FLAG 
WRITE FIRST BYTE 
STEP BUFFER POINTER 



£F] 
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2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2677 

2678 

2679 

2680 

2681 

2682 

2683 

2684 

2685 

2686 

2687 

2688* 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 



10575 
10576 
10577 
10600 
10601 
10602 
10603 
10604 
10605 
10606 
10607 
10610 
10611 
10612 
10613 
10614 
10615 
10616 
10617 
10620 
10621 
10622 

10623 
10624 
10625 
10626 
10627 
10630 
10631 
10632 
10633 
10634 
10635 
10636 
10637 
10640 
10641 
10642 
10643 
10644 
10645 
10646 
10647 
10650 
10651 
10652 
10653 
10654 
10655 
10656 
10657 
10660 
10661 
10662 



001727 
102300 
026576 
103600 
160001 
037634 
026570 
106700 
002400 
017006 
013622 
002003 
026410 
063610 
017006 
063577 
017006 
013607 
002002 
027022 
063635 
026562 

017014 
063564 
073637 
016746 
006021 
063565 
073635 
067635 
063632 
043570 
073400 
063603 
102600 
103700 
102300 
026641 
103500 
001727 
102200 
026727 
102300 
026645 
103400 
073140 
102200 
026727 
102300 
026653 
103500 
001727 
037400 
102200 



ALF, 
MT.2 SFS 
JMP 
MT.3 OTA 
LDA 
ISZ 
JMP 
MT.5 CLC 
CLA 
JSB 
AND 
SZh, 
JMP 
LDA 
JSB 
LDA 
JSB 
AND 
SZh 
JMP 
LDA 
JMP 



PEADT 



PERED 



MT,40 
MT.41 
WT.42 

MT.43 

MT.30 

HT.44 

MT.45 

LOOP 

MT.46 

MT.47 

MT,51 



JSB 

LDA 

STA 

JSB 

SSB, 

LDA 

STA 

LDB 

LDA 

ADA 

STA 

LDA 

OTA 

STC 

SFS 

JMP 

LIA 

ALF, 

SFC 

JMP 

SFS 

JMP 

MIA 

STA 

SFC 

JMP 

SFS 

JMP 

HA 

ALF, 

ISZ 

SFC 



ALF 

DATA 

*-l 

DATA,C 

1,1 

WCNT 

OUT 

DATA 

CMAND 

DB733 

PSS 

EXIT 

DB41 

CMAND 

DBll 

CMAND 

DB40 

ERR 
CNT 
RETRY 

EOTC 

DM10 

ECNT 

CNTR 

RSS 

DM5 

CNT 

CNT 

BUFA 

DMl 

XWNEC 

DB23 

CMND 

CMND,C 

DATA 

*-l 

DATA,C 

ALF 

CMND 

ENDR 

DATA 

*-3 

DATA,C 

XABS 

CMND 

ENDR 

DATA 

*-3 

DATA,C 

ALF 

XWNEC 

CMND 



POSITION SECOND BYTE 

WAIT FOR DATA FLAG 

WRITE SECOND BYTE 

GET NEXT WORD 

STEP AND TEST WORD COUNT 

NOT END, LOOP 

INITIATE END OF RECORD SEQUENCE 

WAIT FOR CONTROL FLAG 

AND GET STATUS 
DISCARD EOT BIT 
TEST FOR ERRORS DURING WRITE 
NORMAL EXIT 
BACKSPACE 



GAP 



EOT? 

YES 

NO, 

RETRY 

READ 

SET RETRY COUNTER TO -10 
GET NEG # OF WORDS 
IS REQUEST AT LEAST 5 WORDS? 
NO, PAD BUFFER 

NEGATIVE WORD COUNT 



INITIALIZE BUFFER POINTER 
READ CHARACTERS CODE 
START TAPE MOTION 



WAIT FOR DATA FLAG 
READ TAPE RECORD LENGTH 

CHECK FOR EOF/EOT 



WAIT FOR DATA FLAG 

SAVE RECORD LENGTH 
CHECK FOR END OF TAPE 

OR NEXT WORD 

READ FIRST BYTE 

POSITION BYTE 

STEP BUFFER POINTER 



[F3 
iW} 
[F] 
IF] 
tFJ 
[F3 
[F3 
[FJ 
CF] 



CF] 



tF] 



CF] 
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2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

273S 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757* 

2758* 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 
2773 
2774* 
2775 



10663 
10664 
10665 
10666 
10667 
10670 
10671 
10672 
10673 
10674 
10675 
10676 
10677 
10700 
10701 
10702 
10703 
10704 
10705 
10706 
10707 
10710 
10711 
10712 
10713 
10714 
10715 
10716 
10717 
10720 
10721 
10722 
10723 
10724 
10725 
10726 
RECORD 

10727 
10730 
10731 
10732 
10733 
10734 
10735 
10736 
10737 
10740 
10741 
10742 
10743 
10744 
10745 



026727 
102300 
026662 
103400 
173400 
006007 
002001 
026655 
006002 
026312 
106700 
002400 
017006 
013623 
0020^01 
016530 
013622 
002003 
026410 
013616 
002002 
126356 
074000 
037637 
002001 
026720 
063610 
017006 
026632 
063632 
003004 
043400 
043565 
002020 
026623 
027022 
< BUFFER 



MT.48 

MT,49 
MTVLC 



MT.50 



READX 



JMP 

SFS 

JMP 

MIA 

STA 

INB, 

RSS 

JMP 

SZB 

JMP 

CLC 

CLA 

JSB 

AND 

R-qS 

JSB 

AND 

SZA, 

JMP 

AND 

vSZA 

JMP 

STB 

RSS 
JMP 
LDA 
JSB 
JMP 
LDA 
CMA, 
ADA 
ADA 
SSA 
JMP 
JMP 
LENGTH, 



SHORT 



063140 
067633 
006020 
026740 
002021 
026744 
001000 
003004 
026744 
002020 
026744 
003004 
OOllOO 
073633 
026702 



ENDR LDA 
LDB 
SSB 
JMP 
SSA 
JMP 
ALS 
CMA 
JMP 
SSA 
JMP 
CMA 
ARS 

ENDRl STA 
JMP 



ENDR 

DATA 

*-3 

DATA,C 

XWNECI 

SZB,RSS 

MT.46 

MTDER 
DATA 

CMAND 
DB757 

STIN 

DB733 

RSS 

EXIT 

DB200 

MTD,I 



ECNT 

SHORT 

DB41 

CMAND 

RERED 

BUFA 

INA 

XWNEC 

DM5 

READT 

ERR 

GET TAPE 

XABS 
BUFL 

* + 6 

ENDRl 

,INA 

ENDRl 

ENDRl 
,INA 

BUFL 
READX 



10746 000000 CNTR NOP 



READ AND MERGE SECOND BYTE 

*** THIS WORD CHANGED *** 

END or BUFFER? 

NO COMPARE OR BUFFER END 

NOT END, READ NEXT V^ORD 

SKIP IF BUFFER END 

NO COMPARE ON VERIFY 

START END OF RECORD SEQUENCE 

WIAT FOR END OF RECORD 

DISCARD TIMING ERROR BIT 

Pi^OCESS EWD 0F RECORD 

RESTORE STATUS 

DISCARD NW AND EOT BITS 

ANY ERRORS? 

NO, DONE 

CHECK FOR END OF FILE 

EOF EXIT 

RESTORE STATUS 

HAVE m TRIED 10 TIMES? 

NO 

YES, CHECK FOR SHORT RECORD 

BACKSPACE 

TRY AGAIN 
RECORD 

< 5 

WORDS? 
YES 
NO 
LENGTH IN USER'S BUFFER 

GET TAPE RECORD LENGTH 

GET USER BUFFER LENGTH 

CHECK USER'S SPECIFICATIONS: 

USER SPECIFIED WORDS 

USER SPECIFIED CHARACTERS 

BOTH ARE WORDS 

DIFFERENT, CONVERT TO CHARS 



CHECK TAPE TYPE 

WORDS, 

CHARACTERS, MAKE WORDS 

SAVE TAPE LENGTH FOR USER 
CONTINUE READ PROCESSING 

GET NEG # WORDS IN A 



[F] 
[F] 
CF] 

rpi 
CF] 



[F3 



CF] 
tF3 
CF] 
CF] 
CF] 
CF] 
CF] 



CF] 
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2776 


10747 063633 


LDA 


BUFL 


2777 


10750 002003 


SZA, 


-RSS 


2778 


10751 026410 


JMP 


EXIT 


2779 


10752 002020 


SSA 




2780 


10753 026756 


JMP 


* + 3 


2781 


10754 003004 


cm, 


.INA 


2782 


10755 001100 


ARS 




2783 


10756 064000 


LDB 





2784 


10757 047573 


ADB 


D,5 


2785 


10760 126746 


JMP 


CNTR,X 
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USER'S BUFFER LENGTH 

LENGTH, DOM'T READ OR WRITE 
WORDS OR CHARACTERS? 
WORDS, LEAVE AS IS 
CHARACTERS, CONVERT TO WORDS 



RETURN WITH (NEG f WORDS +5) 
lU B 
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2787 


10761 


000000 


WNEC 


NOP 


CHECK FOR WRITE RING 




2788 


10762 


102500 


MT.12 


LIA CMND 






2789 


10763 


013572 




AND D.4 






2790 


10764 


002003 




SZA,RSS 






2791 


10765 


126761 




JMP WNEC, I 


EXIT WITH WRITE ENABLED 




2792 


10766 


063603 




I.DA D.19 


REQUEST 




2793 


10767 


067700 




LDB WNEA 


WRITE 




2794 


10770 


117656 




JSB TT35I,I 


RING 


tF3 


2795 


10771 


102033 




HLT 33B 


WAIT 




2796 


10772 


016774 




JSB AUTCK 


INSURE TAPE UNIT IN AUTO 


CE] 


2797 


10773 


026762 




JMP m,i2 






2798* 




"' 








[EJ 


2799* 






CHECK FOR TAPE 


UNIT IN AUTO 


[E] 


2800* 












CE] 


2801 


10774 


00^0^0 


AUTCK 


MOP 




CEl 


2802 


10775 


102500 


MT.l 


LIA CMND 


IS 


tEJ 


2803 


10776 


013621 




AND DB400 


STATUS 


[E] 


2804 


10777 


002003 




SZA,RSS 


AUTO? 


CEj 


2805 


11000 


126774 




JMP AUTCK,! 


YES 


CE3 


2806 


11001 


063605 




LDA D.25 


NO 


CE3 


2807 


11002 


067677 




LDB MTLMA 


REQUEST 


CE3 


2808 


11003 


117656 




JSB TT35I,I 


AUTO 


[F3 


2809 


11004 


102044 




HLT 44B 


WATT 


CE3 


2810 


11005 


026775 




JMP MT.l 




[E] 


2811* 














2812 


11006 


000000 


CMANO 


NOP V 


ISSUE THE COMMAND IN -A- 




2813 


11007 


102600 


MT.14 


OTA CMND 






2814 


11010 


102300 


MT.IS 


SFS CMND 






2815 


11011 


027010 




JMP *-l 






2816 


11012 


016530 




JSB STIN 


GET TAPE STATUS 




2817 


11013 


127006 




JMP CMAND,! 






2818* 














2819 


11014 


000000 


EOTC 


NOP 


CHECK FOR EOT 




2820 


11015 


016530 




JSB STIN 






2821 


11016 


063636 




LDA EDTF 






2822 


11017 


002002 




SZA 






2823 


11020 


126356 




JMP MTD,I 






2824 


11021 


127014 




JMP EOTC, I 






2825* 














2826 


11022 


016530 


ERR 


JSB STIN 


ERROR EXIT 




2827 


11023 


002400 




CLA 






2828 


11024 


036356 




ISZ MTD 






2829 


11025 


126356 




JMP MTD,T 
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[F3 




2831 


11026 


017165 


XMTD 


JSB 


XSTIN 


GET STATUS 


CF3 


2832 


11027 


000010 






SLA 




COI^TROLLER BUSY? 


tF] 


2833 


11030 


027166 






JMP 


XS.l 


YES, CONTINUE 


tF3 


2834 


11031 


106700 


XT, 


,13 


CLC 


DATA 


CLEAR COMTRQL BIT 


tF3 


2835 


11032 


106700 


XT, 


,16 


CLC 


CMND 


ON BOTH CHANNELS 


[F3 


2836 


11033 


063116 






LDA 


SLO 


NO 


CF3 


2837 


11034 


102600 


XT, 


.1 


OTA 


CMND 


SELECT UNIT 


[F3 


2838 


11035 


017432 






JSB 


XATCK 


INSURE TAPE UNIT IN AUTO 


CF3 


2839 


11036 


162356 






LDA 


MTD.T 


FETCH OPERATION CODE 


[FT 


2840 


11037 


013575 






AND 


DB7 


USE LOWER 3 BITS 


CF3 


2841 


11040 


053575 






CPA 


DB7 


STATUS REQUEST? 


CF3 


2842 


11041 


027123 






JMP 


ERR.l 


YES, STATUS IN (B) 


CF3 


2843 


U042 


073140 






STA 


XABS 


NO 


CF3 


2844 


11043 


063614 






LDA 


DBllO 


ISSUE CLEAR 


[F3 


2845 


11044 


017415 






JSB 


XCMND 


COMMAND 


[F3 


2846 


11045 


063140 






LDA 


XABS 




CF3 


2847 


11046 


036356 






ISZ 


MTD 


INCREMENT RETURN POINT (P+2) 


CF3 


2848 


11047 


043051 






ADA 


XBASE 


LOOK UP PROCESSOR IN TABLE 


CF3 


2849 


11050 


124000 






JMP 


0,1 


CALL PROCESSOR 


CF3 


2850* 
















tF3 


2851 


11051 


111052 


XBASE 


DEF 


*+l,I 


COMMAND PROCESSOR ENTRY 


CF3 


2852 


11052 


011251 






DEF 


XREAD 


POINT TABLE 


CF3 


2853 


11053 


011212 






DEF 


XWRTE 




[F3 


2854 


11054 


011202 






DEF 


XWEOF 




CF3 


2855 


11055 


011063 






DEF 


XREW 




CF3 


2856 


11056 


011070 






DEF 


xpos 




[F3 


2857 


11057 


011061 






DEF 


XRES 




CF3 


2858 


11060 


011172 






DEF 


XGAP 




CF3 



2860 


11061 


063613 


XRES 


LDA DB105 


2861 


11062 


002301 




CCE,RSS 


2862 


11063 


063612 


XREW 


LDA DBlOl 


2863 


11064 


002300 




CCE 


2864 


11065 


017415 




JSB XCMND 


2865 


11066 


017165 




JSB XSTIN 


2866 


11067 


027124 




JMP XITl 


2867* 










2868** TAPE 


POSITIONING ROUTINE ** 


2869* 










2870* 


ENTER 


WITH COMMANDS 


STORED IN B 


2871* 










2872 


11070 


067633 


XPOS 


LDB BUFL 


2873 


11071 


063616 




LDA DB200 


2874 


11072 


017140 




JSB XABS 


2875 


11073 


027107 




JMP XP.l 


2876 


11074 


003741 


XP.5 


CCA,SEZ,CCE 


2877 


11075 


017127 




JSB XP.2 


2878 


11076 


017153 




JSB XSPCE 


2879 


11077 


027074 




JMP XP.5 


2880 


11100 


037370 




ISZ XCNTR 


2881 


11101 


027074 




JMP XP.5 


2882 


11102 


063633 




LDA BUFL 


2883 


11103 


001276 




RAL,CLE,SLA 



REWIND/STANDBY COMMAND 

REWIND COMMAND 

INITIATE COMMAND EXECUTION 
GET STATUS 



UFA AND BUFL 

GET FILE COUNT 

SET FLAGS, COMMANDS AND COUNT 
# FILES = 0, DO RECORDS 
,RSS BACKWARDS MOTION? 

YES, GO CHECK FOR "BOT" 
FORWARD SPACE 
REPEAT UNTIL FILE 
FINISHED? 
NO, LOOP 

,ELA BACKFILE REQUEST? 



CF3 
CF3 
[F3 
[F3 
[F3 
CF3 
CF3 
[F3 
tF3 
CF3 
[F3 
[F3 
[F3 
[F3 
CF3 
[F3 
[F3 
EF3 
CF3 
CF3 
CF3 
CF3 
CF3 
CF3 
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[F] 




2884 


11104 


037632 




ISZ BUFA 




CF3 


2885 


11105 


000031 




SLA,ARS 


SKIP 


tFJ 


2886 


11106 


027121 




JMP XIT 




CF] 


2887 


11107 


067632 


XP.l 


LDB BUFA 


PROCESS RECORDS 


[F] 


2888 


lUlO 


002400 




CLA 




CFJ 


2889 


lUU 


017140 




JSB XABS 


SET FOR FWD/REV RECORD SPACE 


CFJ 


2890 


11112 


027121 




JMP XIT 


NO RECORDS, EXIT 


[Fj 


2891 


11113 


003541 


XP,0 


CCA,SEZ,CLE, 


rRSS BACKWARDS MOTION? 


CF] 


2892 


11114 


017127 




JSB XP,2 


YES,. GO CHECK FOR "BOT" 


[F3 


2893 


11115 


017153 




JSB XSPCE 


FORWARD SPACE 


CF] 


2894 


11116 


001400 


SLO 


ALR 


SELECT UNIT COMMAND 


CF] 


2895 


11117 


037370 




ISZ XCMTR 


FINISHED? 


CF] 


2896 


11120 


027113 




JMP XP.O 


NO, LOOP 


CFJ 


2897* 












CF] 


2B-9a 


11121 


0343^56 


Xlf 


%sz m^ 




CFJ 


2899 


11122 


017165 




JSB XSTIN 


GO LOAD THE MT STATUS 


IF] 


2900 


11123 


036356 


ERR.l 


ISZ MTD 




CFJ 


2901 


11124 


063633 


XITl 


LDA BUFh 




CF] 


2902 


11125 


106700 


XT. 4 


CLC CMND 


CLEAR MT COMMAND CONTROL BIT 


CF] 


2903 


11126 


126356 




JMP WTD,I 




CF] 


2905 


11127 


000000 


XP.2 


NOP 




CF] 


2906 


11130 


017165 




JSB XSTIN 


GET STATUS 


CF] 


2907 


11131 


001200 




PAL 


SHIFT SOT BIT TQ A15. 


IF] 


2908 


11132 


002021 




SSA,RSS 


MT UNIT AT "SOT"? 


CFJ 


2909 


11133 


127127 




JMP XP.2, I 


NO, RETURN 


CF] 


2910 


11134 


002040 




SEZ 


YES, FILE SKIPPING? 


CF] 


2911 


11135 


037370 




ISZ XCMTR 


CNT=-i? 


CF] 


2912 


11136 


027124 




JMP XITl 


NO, TRIED TO CROSS SOT 


CF] 


2913 


11137 


027107 




JMP XP.l 


YES, DO RECORD SPACING 


CF] 


2915 


11140 


000000 


XABS 


NOP 


SET-UP ROUTINE 


CF] 


2916 


11141 


006021 




SSB,RSS 




CF] 


2917 


11142 


043571 




ADA D.3 


FORWARD SPACE COMMAND 


CF] 


2918 


11143 


006020 




SSB 


IF # IS < SET FOR 


CF] 


2919 


11144 


043610 




ADA DB41 


BACKSPACE COMMAND 


CF] 


2920 


11145 


073400 




STA XWNEC 




CF] 


2921 


11146 


006121 




CLE,SSB,RSS 


GET -ABSCt) FOR CNT 


CF] 


2922 


11147 


007306 




CMB,CCE,INB, 


.SZB IS THE MT TO BE MOVED? 


CF] 


2923 


11150 


037140 




ISZ XABS 


YES, EXIT TO CP+2) 


CF] 


2924 


11151 


077370 




STB XCNTR 




CF] 


2925 


11152 


127140 




JMP XABS, I 




CF] 


2926 


11153 


000000 


XSPCE 


NOP 




CF] 


2927 


11154 


002120 




CLE,SSA 


IS TAPE MOTION BACKWARDS 


CF] 


2928 


11155 


017451 




JSB XEOTC 




CF] 


2929 


11156 


063400 




LDA XI»NEC 




CF] 


2930 


11157 


017415 




JSB XCMND 


SPACE 


CF] 


2931 


11160 


001210 




RAL,SLA 


EOF MARK? 


CF] 


2932 


11161 


037153 




ISZ XSPCF 


YES 


CF] 


2933 


11162 


002320 




CCE,SSA 


NO, IS THE TAPE AT SOT? 


CF] 


2934 


11163 


027124 




JMP XITl 


YES 


CF] 


2935 


11164 


127153 




JMP XSPCE,! 


NO 


CF] 
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CF] 




2937 


11165 


000000 


XSTIN 


NOP 




GET TAPE STATUS 


CF] 


2938 


11166 


102500 


XS.l 


LIA 


CMND 




£F3 


2939 


11167 


064000 




LDB 





(B)= STATUS 


CF] 


2940 


11170 


001727 




ALF, 


,ALF 


CA)= STATUS SHIFTED 8 BITS 


[F] 


2941 


11171 


127165 




JMP 


XSTIN,! 




CF3 


2942* 














[F] 


2943** WRITE 4" BLANK TAPE ** 




tFJ 


2944* 














[F] 


2945 


11172 


017400 


XGAP 


JSB 


XWNEC 


CHECK FOR WRITE RING 


CFI 


2946 


11173 


017451 




JSB 


XEOTC 


CHECK FOR EMD OF TAPE 


[F] 


2947 


11174 


063601 




LDA 


DB15 


COMMAND 


CF3 


2948 


11175 


017415 




JSB 


XCMND 




CF] 


2949 


11176 


027121 




JMP 


XIT 




CF] 


2950* 














CF] 


2951** WRITE ENI> OF FILE 


4:» 






CF] 


2952* 














CF] 


2953 


11177 


063610 


XWEOR 


LDA 


DB41 


BACKSPACE RECORD COMMAND 


CF] 


2954 


11200 


017415 




JSB 


XCMND 


EXECUTE COMHAND 


CF] 


2955 


11201 


027204 




JMP 


RWEOF 




CF] 


2956 


11202 


017400 


XWEOF 


JSB 


XWNEC 


CHECK FOR WRITE 


CF] 


2957 


11203 


103100 


XT. 12 


CLF 


DATA 




CF] 


2958 


11204 


063615 


RWEOF 


LDA 


DB215 


WRITE FILE MARK CODE 


CF] 


2959 


11205 


017415 




JSB 


XCMND 




CF] 


2960 


11206 


005332 




RBR, 


,SLB,RBL 


PARITY OR TIMING ERROR OCCUR' 


?CF] 


2961 


11207 


027177 




JMP 


XWEOR 


YES, GO BACKSPACE 


CFJ 


2962 


11210 


017451 




JSB 


XEOTC 




CF] 


2963 


11211 


027121 




JMP 


XIT 




CF] 


2965 


11212 


017400 


XWRTE 


JSB 


XWHEC 


CHECK FOR WRITE ENABLED 


CF] 


2966 


11213 


017451 




JSB 


XEOTC 


CHECK FOR END OF TAPE 


CF] 


2967 


11214 


017370 




JSB 


XCHTR 


GET MEG # WORDS 


CF] 


2968 


11215 


043570 




ADA 


DM1 


ADD 1 FOR RECORD LENGTH 


CF] 


2969 


11216 


073400 




STA 


XWNEC 


SAVE WORD COUNT 


CF] 


2970 


11217 


063605 




LDA 


DB31 


WRITE RECORD COMMAND 


CF3 


2971 


11220 


017415 




JSB 


XCMND 


GO INITIATE WRITE SEQUENCE 


CF] 


2972 


11221 


103700 


XT. 9 


STC 


DATArC 


INITIALI?>E DATA CHANNEL 


CF] 


2973 


11222 


047632 




ADB 


BUFA 


BUFFER ADDRESS - 1 


CFJ 


2974 


11223 


063633 




LDA 


BUFL 


FIRST WRITTEN WORD IS BUFL 


CF] 


2975 


11224 


006004 


XOUT 


INB 




STEP BUFFER POINTER 


CF] 


2976 


11225 


102200 


XT, 20 


SFC 


CMND 




CF] 


2977 


11226 


027235 




JMP 


XT. 5 




CF] 


2978 


11227 


102300 


XT. 2 


SFS 


DATA 


WAIT FOR 


CF] 


2979 


11230 


027225 




JMP 


XT. 20 


DATA FLAG 


CF] 


2980 


11231 


103600 


XT. 3 


OTA 


DATA,C 


WRITE RECORD HEADER WORD 


CF] 


2981 


11232 


160001 




LDA 


1,1 


GET NEXT WORD 


CF] 


2982 


11233 


037400 




ISZ 


XWNEC 


DONE 


CF] 


2983 


11234 


027224 




JMP 


XOUT 


NO, LOOP 


CF] 


2984 


11235 


106700 


XT. 5 


CLC 


DATA 


INITIATE END RECORD SEQUENCE 


CF] 


2985 


11236 


102300 


XT, 10 


SFS 


CMND 


WRITE COMPLETE? 


CF] 


2986 


11237 


027236 




JMP 


XT.IO 


NO, CONTINUE 


CF] 


2987 


11240 


017165 




JSB 


XSTIN 


YES, GET STATUS 


CF] 


2988 


11241 


005310 




RBR< 


rSLB 


PARITY OR TIMING ERROR? 


CF] 


2989 


11242 


002101 




CLE, 


rRSS 


YES 


CF] 


2990 


11243 


027121 




JMP 


XIT 


NO 


CF] 
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tF3 




2991 


11244 


063610 




LDA DB41 


BACKSPACE 


CF3 


2992 


11245 


017415 




JSB XCMND 




CF3 


2993 


11246 


063601 




LDA DB15 


GAP 


[F3 


2994 


11247 


017415 




JSB XCMND 




[F3 


2995 


11250 


027452 




JMP XEOTC+1 


RETRY 


CF3 


2997 


11251 


017451 


XREAD 


JSB XEOTC 


READ 


[F3 


2998 


11252 


063567 




LDA DN3 


SET RETRY 


[F3 


2999 


11253 


073153 




STA XSPCE 


COUNTER TO -3 


[F3 


3000 


11254 


017370 




JSB XCMTR 


GET ftlEG # OF WORDS 


CF3 


3001 


11255 


073370 




STA xcmn 




CF3 


3002 


11256 


003700 


XBERD 


CCA,CCE 




CF3 


3003 


11257 


043632 




ADA BUFA 


BUFFER ADDRESS - I 


[F3 


3004 


11260 


07 3400 




STA XmEC 




CF3 


3005 


11261 


002400 




CLA 


INITIALIZE RECORD 


tF3 


3006 


11262 


073140 




STA XABS 


LENGTH COUNTER 


CF3 


3007 


11263 


063603 




LDA DB23 


READ CHARACTERS CODE 


CF3 


3008 


11264 


017415 




JSB XCMND 


INITIATE READ RECORD SEQUEWCEtF] 


3009 


11265 


103700 


XT. 11 


STC DATA,C 


INITIALIZE DATA CHANNEL 


CF3 


3010 


11266 


067370 




LDB XCNTR 


LOAD NEG WORD COUNT 


[F3 


3011 


11267 


017361 




JSB XWAIT 


WAIT FOR 1ST WORD 


CF3 


3012 


11270 


073140 




STA XABS 


SAVE RECORD LENGTH 


[F3 


3013 


11271 


017361 




JSB XWAIT 


WAIT FOR NEXT WORD OR EOR 


CF3 


3014 


11272 


037400 




ISZ XWMEC 


STEP BUFFER POINTER 


CF3 


3015 


11273 


173400 


MTVLO 


STA XWNECI 


*** THIS WORD CHANGED *** 


[F3 


3016 


11274 


006007 




INB,SZB,RSS 


END OF BUFFER? 


[F3 


3017 


11275 


002001 




RSB 


END OF BUFFER OR NO COMPARE. 


CF3 


3018 


11276 


027362 




JMP XLOGP 




CF3 


3019 


11277 


006002 




SZB 


END OF BUFFER 


i:f3 


3020 


11300 


026312 




JMP MTDER 


NO, NO COMPARE 


CF3 


3021 


11301 


106700 


XT ,50 


CLC DATA 


YES, START EOR SEQUENCE 


CF3 


3022 


11302 


102300 


XT,8 


SFS CMND 


READ FUNCTION COMPLETE? 


CF3 


3023 


11303 


027302 




JMP XT. 8 


NO 


CF3 


3024 


11304 


017165 




JSB XSTIN 


YES, RESTORE STATUS 


[F3 


3025 


11305 


002020 




SSA 


WAN AN "EOF" READ? 


CF3 


3026 


11306 


027124 




JMP XITl 


YES, RETURN TO CP+2) 


i:f3 


3027 


11307 


005332 




RBR,SLB,RBL 


PARITY OR TIMING ERROR 


CF3 


3028 


11310 


002001 




RSS 


YES 


CF3 


3029 


11311 


027327 




JMP XENDR 


NO 


[F3 


3030 


11312 


037153 


NOISE 


ISZ XSPCE 


HAVE WE TRIED 3 TIMES? 


[F3 


3031 


11313 


002101 




CLE, RSS 


NO 


[F3 


3032 


11314 


027320 




JMP XSHRT 


YES 


tFJ 


3033 


11315 


063610 




LDA DB41 


BACKSPACE 


[F3 


3034 


11316 


017415 




JSB XCMND 




CF3 


3035 


11317 


027256 




JMP XRERD 


TRY AGAIN 


tF3 


3036 


11320 


063632 


XSHRT 


LDA BUFA 


RECORD 


[F3 


3037 


11321 


003004 




CMA,INA 




CF3 


3038 


11322 


043400 




ADA XWNEC 


< 5 


CF3 


3039 


11323 


043565 




ADA DM5 




CF3 


3040 


11324 


002020 




SSA 


WORDS? 


EF3 


3041 


11325 


027251 




JMP XREAD 


YES 


CF3 


3042 


11326 


027123 




JMP ERR. J 


NO 


CF3 


3043* 












[F3 


3044** RECORD < BUFFER LENGTH, GET TAPE LENGTH IN USER'S BUFFER ** 


[F3 
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3045* 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056* 

3057 

3058 

30591 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

3067 

306i 

3069 

3070 

3071 

3072 



11327 
11330 
11331 
11332 
11333 
11334 
11335 
11336 
11337 
11340 

11341 
11342 
11343 
11344 
11345 
11346 
11347 
11350 
11351 
11352 
11353 
11354 
11355 
11356 
11357 
11360 



063140 
002003 
027312 
067633 
077632 
002020 
027341 
006020 
OOllOO 
027344 

006021 
001000 
0_03004 
073633 
006021 
007004 
040001 
007004 
002021 
077633 
063633 
067632 
006020 
003004 
073633 
027121 



XEMDR LDA XABS 
SZA^RSS 
JMP NOISE 
LDB BUFL 
STB BUFA 
SSA 

JMP XEND2 
SSB 
ARS 
JMP XENDl 



XEND2 SSB, 
AL.S 

XENDl STA 
SSB, 
CMB, 
ADA 
CWB, 
SSA, 
STB 
LDA 
LDB 
SSB 
CMA, 
STA 
JMP 



RSS 

IHh 

BUFL. 

RSS 

INB 

1 

INB 

RSS 

BUFL 

BUFL 

BUFA 

INA 

BUFL 

XIT 



GET TAPE RECORD LEMGTH 
IS LENGTH 0? 
YES, ASSUME TAPE NOISE 
GET USER BUFFER LENGTH 
SAVE USER REUQEST 



SAVE TAPE LENGTH FOR USER 
USER LENGTH IN CHARS? 
YES 
NO 

RECORD LENGTH > USER REQUEST? 
YES, STORE USER REQUEST LENGT 

GET ORIGINAL REQUEST 

USER REQUEST FOR WORDS? 

YES, NEGATE ACTUAL LENGTH 

NO 

CONTINUE READ PROCESSING 



CF3 
CF] 
£F] 
CF] 
CF3 
£FJ 
CF3 
£FJ 
£F3 
£F3 
£F3 
£F3 
£F3 
[F3 
lrF3 
£F3 
£F3 
[F3 
£F3 
tF3 
£F3 
£F3 
tF3 
£FJ 
£F3 
£F3 
£F3 
£F3 



3074 11361 000000 XWAIT NOP 

3075 11362 102200 XLOOP SFC CMND 

3076 11363 027301 JMP XT. 50 

3077 11364 102300 XT, 46 SFS DATA 

3078 11365 027362 JMP XLOOP 

3079 11366 103500 XT. 43 LIA DATA,C 

3080 11367 127361 JMP XWAIT, I 



END-OF-RECORD? 

YES 

NO, NEXT WORD READY? 

NO 

YES, LOAD DATA WORD 



CF3 
tF3 
£F3 
£F3 
£F3 
£F3 
£F3 



3082 11370 000000 XCNTR NOP 

3083 11371 063633 LDA BUFL USER'S BUFFER LENGTH 

3084 11372 002320 CCE,S5A WORDS? 

3085 11373 127370 JMP XCNTR,! YES 

3086 11374 003007 CMA, INA,SZA,RSS NO, CHARACTERS 

3087 11375 027121 JMP XIT DONE IF REOUEST=0 

3088 11376 001100 ARS 

3089 11377 127370 JMP XCNTR, I 



£F3 
£F3 
£F3 
CF3 
£F3 
£F3 
£F3 
£F3 



3091 11400 000000 XWNEC NOP 

3092 11401 017165 JSB XSTIN 

3093 11402 001310 PAR, SLA 

3094 11403 027166 JMP XS.l 

3095 11404 005363 RBR,CLE,RBR 

3096 11405 006011 SLB,RSS 



GET STATUS 

UNIT READY? 

NO 

YES 

WRITE ENABLED? 



£F3 
£F3 
£F3 
£F3 
EF3 
£F3 
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[F] 




3097 


11406 


127400 




JMP XWNECI 


YES 


CF] 


3098 


11407 


063603 




LDA D.19 


NO 


[Fl 


3099 


11410 


067700 




LDB WNEA 


OUTPUT 


CF] 


3100 


11411 


117656 




JSB TT35I,I 


MESSAGE 


tF3 


3101 


11412 


102033 




HLT 33B 


HALT 


[F3 


3102 


11413 


017432 




JSB XATCK 


CHECK FOR AUTO 


[F3 


3103 


11414 


027401 




JMP XWNECtl 




CF] 


3105 


11415 


000000 


XCMND 


MOP 




[F3 


3106 


11416 


102600 


XT. 14 


OTA CMND 


OUTPUT COMMAND 


CF] 


3107 


11417 


106500 


XS.O 


LIB CMND 


LOAD STATUS WORD 


[F] 


3108 


11420 


005323 




RBR,RBR 




CF] 


3109 


11421 


005310 




RBR^SLB 


REQUEST REJECTED 


CF] 


3.110 


1142^ 


027443 




JMP REJCT 


¥ES 


CF3 


3111 


11423 


103700 


XT. 7 


STC CMND^C 


NO, INITIATE EXECUTION 


CF] 


3112 


11424 


007540 




CCB,SEZ,CLE 


READ OR WRITE? 


CF] 


3113 


11425 


127415 




JMP XC^«ND,I 


YES, RETURN 


CF] 


3114 


11426 


102300 


XT. 15 


SrS CMND 




CF] 


3115 


11427 


027426 




JMP XT. 15 




CF] 


3116 


11430 


017165 




JSB XSTIN 


GET STATUS 


CF] 


3117 


11431 


127415 




JMP XCMND,I 




CF] 


3118» 












CF] 


3119** CHECK rOR TAPE UNIT IN AUTO ^^ 


CF] 


3120* 












CF] 


3121 


11432 


000000 


XATCK 


NOP 




CF] 


3122 


11433 


017165 




JSB XSTIN 


GET STATUS 


CF] 


3123 


11434 


006111 




CLE,St,B,RSS 


UNIT IN AUTO? 


CF] 


3124 


11435 


127432 




JMP XATCK,! 


YES 


CF] 


3125 


11436 


063605 




liDA D.25 


OUTPUT 


CF] 


3126 


11437 


067677 




LDB MTLMA 




CF] 


3127 


11440 


117656 




JSB TT35I,I 


MESSAGE 


CF] 


3128 


11441 


102044 




HLT 44B 


HALT 


CF] 


3129 


11442 


027433 




JMP XATCK+l 




CF] 


3131 


11443 


067614 


REJCT 


LDB DBllO 


LOAD CLEAR COMMAND 


CF] 


3132 


11444 


106600 


O.B 


0TB CMND 


OUTPUT IT 


IF] 


3133 


11445 


103700 


XT. 6 


STC CMND,C 


INITIATE IT 


CF] 


3134 


11446 


102300 


XT.O 


5FS CMND 


COMPLETED? 


CF] 


3135 


11447 


027446 




JMP XT.O 


NO 


CF] 


3136 


11450 


027416 




JMP XT. 14 


YES 


CF] 


3138 


11451 


000000 


XEOTC 


NOP 




CF] 


3139 


11452 


017165 




JSB XSTIN 


GET STATUS 


CF] 


3140 


11453 


001763 




ALF,CLE,RAR 


SHIFT "EOT" TO AO 


CF] 


3141 


11454 


000010 




SLA 


AT "EOT" 


CF] 


3142 


11455 


027124 




JMP XITl 


YES 


CF] 


3143 


11456 


127451 




JMP XEOTC, I 


NO 


CF] 
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3145* 














3146* 


ENTER WITH 


THE LOWER MAG TAPE 


SELECT CODE IN (B). ALL I/O 




3147* 


INSTRUCTIONS IN THE MAG TAPE 1 


DRIVER ARE MODIFIED TO 




3148* 


REFERENCE THE GIVEN I/O PORT, 






3149* 














3150 


11457 


000000 


HTDIN NOP 








3151 


11460 


077640 


STB 


WTSCD 


SAVE SELECT CODE 


CFJ 


3152 


11461 


067661 


LDB 


CONIA 


GET STARTING POINTER 


[F3 


3153 


11462 


160001 


MTDIl LDA 


Irl 


GET INSTRUCTION 


CFl 


3154 


11463 


013563 


AND 


DM64 


MASK OUT OLD SELECT CODE 


tF] 


3155 


11464 


033640 


lOR 


MTSCD 


MERGE IN NEW SELECT CODE 


CF3 


3156 


11465 


170001 


STA 


1,1 


SAVE IT 


CF3 


3157 


11466 


006004 


im 






[F] 


3158 


11467 


057662 


CPB 


C0N2A 


FINISHED DATA CHANNEL? 


[FJ 


ai59 


11470 


03 7 §40 


ISZ 


MTSCD 


YES, BUMP SELECT CODE 


tFI 


3160 


11471 


057663 


CPB 


C0N3A 


FINISHED COMMAND CHANNEL? 


[F] 


3161 


11472 


127457 


JMP 


WTDIN,! 


YES 


[F] 


3162 


11473 


027462 


JMP 


MTDIl 


NO 


CF] 


3163* 












CF3 


3164 


11474 


010600 


CONl DEF 


MT,3 


DATA CHANNEL INSTRUCTIONS 


tF] 


3165 


11475 


010573 


DEF 


MT.9 




CF] 


3166 


11476 


011231 


DEF 


XT. 3 




CF] 


3167 


11477 


010643 


DEF 


MT.43 




CF3 


3168 


11500 


010657 


DEF 


MT,47 




[FJ 


3169 


11501 


011366 


DEF 


XT. 43 




LF3 


3170 


11502 


010651 


DEF 


MT.45 




CF] 


3171 


11503 


010666 


DEF 


WT.49 




CFJ 


3172 


11504 


010604 


DEF 


MT.5 




CF] 


3173 


11505 


010675 


DEF 


MT.50 




tF3 


3174 


11506 


011235 


DEF 


XT. 5 




CF3 


3175 


11507 


011301 


DEF 


XT. 50 




tF3 


3176 


11510 


011031 


DEF 


XT. 13 




t^3 


3177 


11511 


010576 


DEF 


MT.2 




IF] 


3178 


11512 


010571 


DEF 


HT.8 




CF3 


3179 


11513 


010641 


DEF 


MT.42 




tF3 


3180 


11514 


010647 


DEF 


MT.44 




i:F3 


3181 


11515 


010655 


DEF 


MT.46 




CF3 


3182 


11516 


010664 


DEF 


MT.48 




CFJ 


3183 


11517 


011227 


DEF 


XT. 2 




CF3 


3184 


11520 


011364 


DEF 


XT. 46 




CF3 


3185 


11521 


011221 


DEF 


XT. 9 




CFJ 


3186 


11522 


011265 


DEF 


XT.il 




CFJ 


3187 


11523 


011203 


DEF 


XT. 12 




[FJ 


3188 


11524 


010775 


C0N2 DEF 


MT.l 


COMMAND CHANNEL INSTRUCTIONS 


CF3 


3189 


11525 


010762 


DEF 


MT.12 




CFJ 


3190 


11526 


010364 


DEF 


MT.2! 




CFJ 


3191 


11527 


010531 


DEF 


S.l 




CFJ 


3192 


11530 


011166 


DEF 


X5.1 




CFJ 


3193 


11531 


010532 


DEF 


S.2 




CFJ 


3194 


11532 


011417 


DEF 


XS.O 




CFJ 


3195 


11533 


010653 


DEF 


LOOP 




CFJ 


3196 


11534 


010645 


DEF 


MT.30 




CFJ 


3197 


11535 


010662 


DEF 


MT.51 




CFJ 


3198 


11536 


011362 


DEF 


XLOOP 




CFJ 


3199 


11537 


011225 


DEF 


XT. 20 




CFJ 
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tF3 


3200 


11540 


011010 


DEF 


MT.15 




3201 


11541 


011426 


DEF 


XT. 15 




3202 


11542 


011446 


DEF 


XT,0 




3203 


11543 


011236 


DEF 


XT. 10 




3204 


11544 


011302 


DEF 


XT. 8 




3205 


11545 


010566 


DEF 


MT.IO 




3206 


11546 


011007 


DEF 


MT.14 




3207 


11547 


010416 


DEF 


MT.20 




3208 


11550 


010637 


DEF 


HT,40 




3209 


11551 


0U416 


DEF 


XT. 14 




3210 


11552 


011034 


DEF 


XT.l 




3211 


11553 


010640 


DEF 


MT.41 




3212 


11554 


011423 


DEF 


XT. 7 




3213 


11555 


011445 


DEF 


XT. 6 




3214 


11556 


011444 


DEF 


0,8 




3215 


11557 


011125 


DEF 


XT. 4 




3216 


11560 


011032 


DEF 


XT. 16 




3217 


11561 




C0N3 EQU 


♦ 
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£F] 
CFJ 
CF3 
[F3 
tFJ 
IW) 
tF3 
CF3 
CFl 
CFJ 
CF3 
CF3 
CF] 

in 

CFJ 
tF] 
CF] 
[Fj 
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3219 


11561 


165300 


N5440 


DEC 


-5440 


3220 


11562 


177401 


DM255 


DEC 


-255 


3221 


11563 


177700 


DM64 


DEC 


-64 


3222 


11564 


177766 


DM10 


DEC 


-10 


3223 


11565 


177773 


DM5 


DEC 


-5 


3224 


11566 


177774 


DM4 


DEC 


-4 


3225 


11567 


177775 


DM3 


DEC 


-3 


3226 


11570 


177777 


DM1 


DEC 


-1 


3227 


11571 


000003 


D,3 


OCT 


3 


3228 


11572 


000004 


D,4 


DEC 


4 


3229 


11573 


000005 


D,5 


DEC 


5 


3230 


11574 


000006 


D.6 


DEC 


6 


3231 


11575 


000007 


DB7 


OCT 


7 


3232 


11576 


000010 


DBIO 


OCT 


10 


323^1 


1 157T 


000011 


D&ll 


OCT 


11 


3234 


11600 


000012 


D.IO 


DEC 


10 


3235* 












3236 


11601 


000015 


DB15 


OCT 


15 


3237* 












3238 


11602 


000017 


DB17 


OCT 


17 


3239 


11603 


000023 


DB23 


OCT 


23 


3240 


11603 




D,19 


EQU 


DB23 


3241 


11604 


000030 


D.24 


DEC 


24 


3242 


11605 


000031 


DB31 


OCT 


31 


3243 


11605 




D.25 


EQU 


DB31 


3244* 












3245 


11606 


000035 


DB35 


OCT 


35 


3246 


11607 


000040 


DB40 


OCT 


40 


3247 


11610 


000041 


DB41 


OCT 


41 


3248* 












3249 


11611 


000100 


DBIOO 


OCT 


100 


3250 


11612 


000101 


DBlOl 


OCT 


101 


3251 


11613 


000105 


DB105 


OCT 


105 


3252* 












3253 


11614 


000110 


DBllO 


OCT 


110 


3254 


11615 


000215 


DB215 


OCT 


215 


3255* 












3256 


11616 


000200 


DB200 


OCT 


200 


3257 


11617 


000201 


DB201 


OCT 


201 


3258 


11620 


000300 


DB300 


OCT 


300 


3259 


11621 


000400 


DB400 


OCT 


400 


3260 


11622 


000733 


DB733 


OCT 


733 


3261 


11623 


000757 


DB757 


OCT 


757 


3262 


11624 


012500 


D5440 


DEC 


5440 


3263* 












3264 


11625 


100000 


BIOOK 


OCT 


100000 


3265* 
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CF3 



CF] 
iFl 

[FJ 
CF3 



[F3 



[F] 



£F3 
tF3 
CF3 
tF3 
CFi 



[F3 
[F3 
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3267* 

3268 

3269 

3270 

3271* 

3272 

3273* 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3-28 1 

3282 

3283* 

3284 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3308 

3309 

3310* 

3311* 

3312 

3313 

3314 

3315* 

3316 

3317 

3318 

3319* 

3320 

3321 



11626 000000 

11627 000000 
11630 000000 



DTMPO BSS 1 
DTMPl BSS 1 
DTMP2 BSS 1 



11631 000000 CCNT BSS 1 



11632 
11633 
11634 
11635 
11636 
11637 
11640 

11643 

11644 
11645 
11573 
11646 
11647 
11650 
11651 
11652 
11653 
11654 
11655 
11656 
11657 
11660 
11661 
11662 
11663 
11664 
11665 
11666 
11611 
11667 
11670 
11671 
11672 
11673 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
0^000^0 
026040 

000116 
000131 

100200 
002501 
002504 
002507 
002502 
002505 
002510 
007233 
002010 
002145 
002423 
111474 
111524 
111561 
004002 
004027 
006000 

012500 
112500 
003003 
173400 
153400 



11674 011702 

11675 011706 

11676 011716 

11677 011742 

11700 011757 

11701 011771 



BUFA 

BUFL 

WC»^T 

CNT 

EOTF 

ECNT 

MTSCD 

turn 



.Y 

BSPGA 

BASPG 

JSYS2 

JDRTT 

JSAD2 

JSYS3 

JDRTl 

JSAD3 

MGTCA 

TT35I 

DISCN 

WORDN 

COHIA 

C0M2A 

C0M3A 

C0M6A 

DULTT 

DULTB 

DDIRA 

DTRKB 

DTRKR 

DMTRL 

WSTOC 

MCPAC 



BSS 1 

BSS 1 

BSS 1 

BSS 1 

BSS 1 

BSS 1 

BSS 1 

■o-Sw-" £- 

ASC 1,, 



OCT 
OCT 
EQU 
OCT 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
EQU 
DEF 
ABS 
DEF 
STA 
CPA 



116 

131 

D,5 

100200 

BSYS2 

LDRTT 

BSAD2 

Bsys3 

LDRTT+1 

BSAD3 

GETCR 

TTY35 

DISCD 

WORDC 

COMlrl 

C0N2,I 

C0N3,I 

C0M6 

ULTTA 

6000B 

DBIOO 

IDTBL 

IDTBL+IO 

MTRtiT 

XWNECI 

XWNEC,I 



TTY CHARACTER COUNT 

MTD BUFFER ADDRESS 
MTD BUFFER LENGTH 
MTD WORD COUNT 
MTD RECORD COUNT 
END-OF-TAPE FLAG 
MTD RETRY COUNTER 



BASE PAGE DISC ADDRESS 
EASE PAGE CORE ADDRESS 



CF3 

CF3 
CFJ 



11702 
11703 



006412 
042117 



DONEA DEF DONEM 
ILTNM DEF ILIN 
TAPMA DEF TAPMS 

MTLMA DEF WTLM 
WNEA DEF WNE 
VRFYA DEF VRFY 

DONEM OCT 6412 

ASC 2, DONE 



[F3 



CF] 



CF3 
CF] 
CF3 
CF) 
CFJ 
CF3 
[F3 
CFJ 
CFJ 
CFJ 
CFJ 
CFJ 
CFJ 



-> USER LIRARY TRACK TABLE 
DUMP BUFFER ADDRESS FOR ULTTB 

DUMP TRACK BUFFER ADDRESS 
OOOOB DISC READ FORM OF DTRKB 

=> SYSTEM LIBRARY LENGTHS BUFFER 
WORD TO RESTORE READ CFJ 

WORD READ MATCH BUFFER? CFJ 

CFJ 



CFJ 
CFJ 

CFJ 
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3322 


11705 006412 




OCT 


6412 


3323 


11706 005111 


ILIN 


OCT 


5111 


3324 


11707 046114 




ASC 


6,LLEGAL INPUT 


3325 


11715 006400 




OCT 


6400 


3326 


11716 005124 


TAPMS 


OCT 


5124 


3327 


11717 040520 




ASC 


10, APE BAD OR TOO SHORT 


3328 


11731 006412 




OCT 


6412 


3329 


11732 005104 


DISCF 


OCT 


5104 


3330 


11733 044523 




ASC 


7, ISC FAILURE: 


3331 


11742 005103 


MTLH 


OCT 


5103 


3332 


11743 044101 




ASC 


11,HANGE MAG TAPE TO AUIO 


3333 


11756 006400 




OCT 


6400 


3334 


11757 005127 


WNE 


OCT 


5127 


3335 


11760 051111 




ASC 


8, RITE NOT ENABLED 


3336 


11770 O0€4OO 




OCT 


6440 


3337 


11771 005126 


VRFX 


OCT 


5126 


3338 


11772 042522 




ASC 


4,ERIFY ? 



CE3 



[F] 
CF] 
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3340* 
















3341* 


UPON 


ENTRY (A) HOLDS THE NUMBER OF CHARACTERS TO BE OUTPUT OR 




3342* 


IS ZERO TO REQUEST 


INPUT. FOR 


OUTPUT REQUESTS CB) POINTS TO 




3343* 


THE FIRST WORD OF 


THE BUFFER. 


A LINE FEED, RUBOUT, NULL, OR 




3344* 


X-OFF tS IGNORED BY INPUT. ON 


INPUT A CARRIAGE RETURN ENDS THE 


3345* 


RECORD, A * 


BACKSPACES 


ONE CHARACTER, AND AN ESCAPE OR ALT-MODE 


3346* 


DELETES THE 


INPUT 


RECORD. 






3347* 
















3348 


02010 






ORG 


2010B 




[Fl 


3349 


02010 


000000 


TTY35 


NOP 








3350 


02011 


072351 




STA 


CCNTY 


SET CHARACTER COUNT 


[F] 


3351 


02012 


002003 




SZA, 


rRSS 


OUTPUT REQUEST? 




3352 


02013 


026120 




JMP 


TTYe 


NO 




3353 


02014 


005000 




BLS 




YES, INITIALIZE 




3354 


02015 


076416 




STB 


BUFAD 


CHARACTER POINTER 




3355 


02016 


003400 




CCA 




SET FLAG 




3356 


02017 


072417 




STA 


TFLAG 


AS 'OUTPUT' 




3357 


02020 


062343 




LDA 


B120K 


SEND BITS FOR 




3358 


02021 


102611 




OTA 


TTYSC 


'PRINT ONLY' 




3359 


02022 


062351 


TTYl 


LDA 


CCNTY 


ALL CHARACTERS 


CF] 


3360 


02023 


002003 




SZA, 


rRSS 


OUTPUT? 




3361 


02024 


126010 




JMP 


TTY35,I 


YES 




3362 


02025 


042316 




ADA 


NMl 


NO, CORRECT 


CF] 


3363 


02026 


072351 




STA 


CCNTY 


CHARACTER COUNT 


CFJ 


3364 


02027 


066416 




LDB 


BUFAD 


COMPUTE 




3365 


02030 


036416 




ISZ 


BUFAD 


WORD-CHARACTER 




3366 


02031 


004065 




CLEi 


,ERB 


ADDRESS 




3367 


02032 


160001 




LDA 


1,1 


LOAD fiOUD 




3368 


02033 


002041 




SEZ, 


rRSS 


POSITION 




3369 


02034 


001727 




ALF, 


,ALF 


CHARACTER 




3370 


02035 


012335 




AND 


DB177 


EXTRACT CHARACTER 




3371 


02036 


032336 




lOR 


NB200 


ADD IN BIT 7 


CF] 


3372 


02037 


102611 




OTA 


TTYSC 


OUTPUT IT 




3373 


02040 


103711 


TTY2 


STC 


TTYSC, C 


REQUEST CHARACTER TRANSFER 




3374 


02041 


102311 




SFS 


TTYSC 


WAIT FOR 




3375 


02042 


026041 




JMP 


*-l 


COMPLETION FLAG 




3376 


02043 


062417 




LDA 


TFLAG 






3377 


02044 


002002 




SZA 




OUTPUT? 




3378 


02045 


026022 




JMP 


TTYl 


YES 




3379 


02046 


102511 




LIA 


TTYSC 


NO, EXTRACT 




3380 


02047 


012335 




AND 


DB177 


CHARACTER 




3381 


02050 


052322 




CPA 


DB12 


LINE FEED? 




3382 


02051 


026040 




JMP 


TTY2 


YES 




3383 


02052 


052335 




CPA 


DB177 


NO, RUBOUT? 




3384 


02053 


026040 




JMP 


TTY2 


YES 




3385 


02054 


002002 




SZA 




NO, NULL 




3386 


02055 


052325 




CPA 


NB23 


OR X-OFF? 


CF] 


3387 


02056 


026040 




JMP 


TTY2 


YES 




3388 


02057 


052340 




CPA 


BKSPC 


NO, '«' ? 




3389 


02060 


026110 




JMP 


TTY4 


YES 




3390 


02061 


007400 




CCB 




NO 




3391 


02062 


052327 




CPA 


DB33 


EXIT ON 




3392 


02063 


026112 




JMP 


TTY5 


VARIOUS 




3393 


02064 


052341 




CPA 


ALTMD 


FORMS Of 




3394 


02065 


026112 




JMP 


TTY5 


ESCAPE 
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ASR35 DRIVER 










3395 


02066 


052334 


CPA 


DB176 


OR 




3396 


02067 


026112 


JMP 


TTY5 


ALT MODE 




3397 


02070 


072420 


STA 


TTYTM 


SAVE CHARACTER 




3398 


02071 


066351 


liDB 


CCNTY 


BACKSPACE 


[F3 


3399 


02072 


056333 


CPE 


D.72 


IF BUFFER 




3400 


02073 


016126 


JSB 


BKSP 


IS FULL 




3401 


02074 


066416 


LDB 


BUEAD 


COMPUTE 




3402 


02075 


036416 


ISZ 


BUEAD 


NEXT BUFFER 




3403 


02076 


004065 


CLE, 


rERB 


ADDRESS 




3404 


02077 


002041 


SEZ. 


,RSS 


POSITION 




3405 


02100 


001737 


ALF, 


rSLA,ALF 


AND FORM 




3406 


02101 


130001 


lOR 


1,1 


BUFFER WORD 




3407 


02102 


170001 


vSTA 


1,1 


STORE AND 




3408 


02103 


036351 


ISZ 


CCNTY 


COUNT CHARACTER 


CF] 


3409 


02104 


062420 


hDA 


TTYTM 


WAS XT A 




3410 


02105 


052323 


CPA 


NB15 


CARRIAGE RETURN? 


CF] 


3411 


02106 


126010 


JMP 


TTY35,X 


YES 




3412 


02107 


026040 


JMP 


TTy2 


NO 




3413 


02110 


016126 


TTY4 JSB 


BKSP 


BACKSPACE 




3414 


02111 


026040 


JMP 


TTY2 






3415 


02112 


076417 


TTY5 STB 


TFLAG 


SET TO OUTPUT MODE 




3416 


02113 


046010 


ADB 


TTY35 


SET RETURN 




3417 


02114 


076010 


STB 


TTy35 


TO INPUT CALL 




3418 


02115 


062317 


LDA 


N.3 


OUTPUT '\' AND 


CF3 


3419 


02116 


066427 


LDB 


RVRSA 


CARRIAGE RETURN - 




3420 


02117 


026011 


JMP 


TTY35+1 


LINE FEED 




3421 


02120 


066426 


TTY6 LDB 


IBUFA 


SET UP INPUT 




3422 


02121 


176430 


STB 


BADRA,! 


BUFFER 




3423 


02122 


076416 


STB 


BUEAD 


POINTERS 




3424 


02123 


072417 


STA 


TFLAG 


SET TO INPUT MODE 




3425 


02124 


062345 


LDA 


B160K 


SEND INPUT BITS 




3426 


02125 


026037 


JMP 


TTY2-1 


TO ASR 35 




3428* 








f 






3429** BACKSPACE ONE CHARACTER ** 






3430* 








* 






3431 


02126 


000000 


BKSP NOP 








3432 


02127 


066351 


LDB 


CCNTY 


DECREMENT 


[F] 


3433 


02130 


006003 


SZB, 


,RSS 


CHARACTER 




3434 


02131 


126126 


JMP 


BKSP, I 


COUNT 




3435 


02132 


046316 


ADB 


NMl 


IF 


£F3 


3436 


02133 


076351 


STB 


CCNTY 


NON-ZERO 


CF] 


3437 


02134 


007400 


CCB 




BACKSPACE 




3438 


02135 


046416 


ADB 


BUFAD 


CHARACTER 




3439 


02136 


076416 


STB 


BUFAD 


ADDRESS 




3440 


02137 


004065 


CLE, 


rERB 


INSURE 




3441 


02140 


160001 


LDA 


1,1 


NEXT CHARACTER 




3442 


02141 


012346 


AND 


HIMSK 


WILL NOT BE 




3443 


02142 


170001 


STA 


i,x 


GARBLED 




3444 


02143 


062420 


LDA 


TTYTM 


RETRIEVE CHARACTER FOR CALLS 




3445 


02144 


126126 


JMP 


BKSP, I 


FROM BUFFER OVERFLOW 
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3447* 












3448* 


UPON 


ENTRY CA) HOLDS THE DISC 


ADDRESS (BITS 15-14 DETERMINE 


3449* 


THE DISC REFERENCED) AND CB) HOLDS THE CORE ADDRESS. BIT 15 


3450* 


OF CB) IS 1 FOR A 


TRANSFER TO 


CORE, FOR A TRANSFER TO DISC. 


3451* 


IT IS ASSUMED THAT 


WORDC HOLDS 


; THE NEGATIVE TRANSFER LENGTH 


3452* 


IN WORDS. 








3453* 












3454 


02145 


000000 DISCD 


MOP 






3455 


02146 


072422 


ST A 


DADDR 


SAVE DISC AND 


3456 


02147 


076421 


STB 


CORE 


CORE ADDRESSES 


3457 


02150 


062423 


LDA 


WORDC 


EXIT ON 


3458 


02151 


002003 


SZA, 


pRSS 


WORD COUNT 


3459 


02152 


126145 


JMP 


DISCD, I 


OF ZERO 


3460 


02153 


006021 


SSB, 


rRSS 


ROUND UP 


34^1 


02154 


012314 


AND 


NM64 


TO FULL SECTOR £F 


3462 


02155 


072423 


STA 


WORDC 


ON WRITE 


3463 


02156 


062422 


LDA 


DADDR 


LOAD 


3464 


02157 


001222 


RAL, 


,RAL 


DISC 


3465 


02160 


012317 


AND 


N.3 


SELECT [F 


3466 


02161 


072424 


STA 


DISCI 


CODE 


3467 


02162 


042431 


ADA 


DSTBL 


WORD 


3468 


02163 


160000 


LDA 


0,1 




3469 


02164 


072425 


STA 


FAIL 


SAVE IT 


3470 


02165 


012331 


AND 


DB77 


EXTRACT SELECT CODE 


3471 


02166 


064000 


LDB 





COPY INTO CB) 


3472 


02167 


042342 


ADA 


DCHN 


OUTPUT DMA/DISC 


3473 


02170 


102607 


OTA 


DMA 


LINKAGE CONTROL WORD 


3474 


02171 


022344 


XOR 


DSTC 


COMPUTE 


3475 


02172 


072237 


STA 


D1SC3 




3476 


02173 


002004 


INA 




AND 


3477 


02174 


022336 


XOR 


NB200 


[F 


3478 


02175 


072220 


STA 


DISCI 


STORE 


3479 


02176 


072242 


STA 


DISC4 




3480 


02177 


072251 


STA 


DISC5 


I/O 


3481 


02200 


042332 


ADA 


NBIOO 


CF 


3482 


02201 


072227 


STA 


DISC2 


COMMANDS 


3483 


02202 


066421 


LDB 


CORE 


SET BC03 


3484 


02203 


007000 


cm 




TO PROPER 


3485 


02204 


005200 


RBL 




DIRECTION BIT 


3486 


02205 


062425 


LDA 


FAIL 


SET B[2:0] 


3487 


02206 


001727 


ALF, 


rALF 


TO PROPER 


3488 


02207 


100042 


LSL 


2 


ADDRESS PREFIX 


3489 


02210 


062422 


LDA 


DADDR 


EXTRACT 


3490 


02211 


001222 


RAL, 


rRAL 


TRACK 


3491 


02212 


100046 


LSL 


6 


NUMBER 


3492 


02213 


001200 


RAL 




REMOVE BIT 7 


3493 


02214 


101051 


LSR 


9 


SHIFT HARDWARE ADDRESS INTO CA) 


3494 


02215 


072422 


STA 


DADDR 




3495 


02216 


066315 


LDB 


NMIO 


SET RETRY [F 


3496 


02217 


076425 


STB 


FAIL 


COUNTER 


3497 


02220 


102500 DISCI 


LIA 





WAIT FOR 


3498 


02221 


000010 


SLA 




DISC CONTROLLER 


3499 


02222 


026220 


JMP 


DISCI 


FREE AND 


3500 


02223 


001727 


ALF, 


rALF 


DISC 


3501 


02224 


002021 


SSA, 


pRSS 


UP TO 
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3502 


02225 026220 


JMP 


DISCI 


SPEED 




3503 


02226 062422 


LDA 


DADDR 


OUTPUT 




3504 


02227 102600 


DISC2 OTA 





DISC ADDRESS 




3505 


02230 106703 


CLC 


MAR 


OUTPUT 




3506 


02231 062421 


hDk 


CORE 


CORE 




3507 


02232 102603 


OTA 


MAR 


ADDRESS 




3508 


02233 102703 


STC 


MAR 


OUTPUT 




3509 


02234 062423 


LDA 


WORDC 


TRANSFER 




3510 


02235 102603 


OTA 


MAR 


LENGTH 




3511 


02236 103707 


STC 


DHkfC 


INITIATE 




3512 


02237 102700 


DISC3 STC 





TRANSFER 




3513 


02240 102307 


SFS 


DMA 


fe'AIT FOR 




3514 


02241 026240 


JMP 


*-l 


COMPLETION FLAG 




3515 


02242 102500 


DISC4 LIA 





ABORT 




354& 


02^243 0123^1 


m^ 


NBIO 


BIT 


CFI 


3517 


02244 002002 


SZA 




SET? 




3518 


02245 026255 


JMP 


DISC6 


YES 




3519 


02246 062421 


LDA 


CORE 


NO 




3520 


02247 002021 


SSA, 


,RSS 


READ? 




3521 


02250 026312 


JMP 


DISC7 


NO 




3522 


02251 102500 


DISCS LIA 





YES 




3523 


02252 012326 


AND 


DB32 


FAULTY 




3524 


02253 002003 


SZA, 


-RSS 


TRANSFER? 




3525 


02254 026312 


JMP 


DISC7 


NO 




3526 


02255 036425 


DISC6 ISZ 


FAIL 


YES, TRY AGAIN? 




3527 


02256 026220 


JMP 


DISCI 


YES 




3528 


02257 062324 


LDA 


D.16 


NO, PRINT 




3529 


02260 066435 


LDB 


DISFA 


'DISC 




3530 


02261 016010 


JSB 


TTY35 


FAILURE' 




3531 


02262 062424 


LDA 


DISCt 


STORE 




3532 


02263 042330 


ADA 


DB60 


DISC NUMBER 




3533 


02264 001727 


ALF, 


,ALF 


AND '/' 




3534 


02265 042337 


ADA 


SLASH 


IN 




3535 


02266 172433 


STA 


EBFDA,I 


BUFFER 


CFJ 


3536 


02267 006400 


CLB 




COMPUTE 




3537 


02270 062422 


LDA 


DADDR 






3538 


02271 001727 


ALF, 


rALF 


ASCII 




3539 


02272 001200 


PAL 






CF] 


3540 


02273 012331 


AND 


DB77 






3541 


02274 100400 


DIV 


DB12 


FOR 




3542 


02276 046330 


ADB 


DB60 






3543 


02277 002003 


SZA, 


rRSS 


TRACK 




3544 


02300 026303 


JMP 


* + 3 






3545 


02301 042330 


ADA 


DB60 


NUMBER 




3546 


02302 001727 


ALF. 


rALF 






3547 


02303 030001 


lOR 


1 






3548 


02304 172434 


STA 


FB1DA,I 


STORE IT 


CFJ 


3549 


02305 062320 


LDA 


N.6 


PRINT 


CF] 


3550 


02306 062320 


LDA 


N,6 


PRINT 


CFJ 


3551 


02307 066433 


LDB 


EBFDA 


'X/XX, ' 




3552 


02310 016010 


JSB 


TTY35 






3553 


02311 126432 


JMP 


ERRIA,! 


TERMINATE LOAD/DUMP 




3554 


02312 107707 


DISC7 CLC 


DMA,C 


CLEAN up 




3555 


02313 126145 


JMP 


DISCD,I 
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3557 02314 177700 NM64 DEC -64 

3558 02315 177766 NMIO DEC -10 

3559 02316 177777 NMl DEC -1 

3560 02317 000003 N.3 DEC 3 

3561 02320 000006 N.6 DEC 6 

3562 02321 000010 WBIO OCT 10 

3563 02322 000012 DB12 OCT 12 

3564 02323 000015 NB15 OCT 15 

3565 02324 000020 D,16 DEC 16 

3566 02325 000023 NB23 OCT 23 

3567 02326 000032 DB32 OCT 32 

3568 02327 000033 DB33 OCT 33 

3569 02330 000060 DB60 OCT 60 

3570 02331 000077 DB77 OCT 77 

3571 02332 000100 M8100 OCT 100 

3572 02333 OOOllO D.72 DEC 72 

3573 02334 000176 DB176 OCT 176 

3574 02335 000177 DB177 OCT 177 

3575 02336 000200 NB200 OCT 200 

3576 02337 000057 SLASH OCT 57 

3577 02340 000137 BKSPC OCT 137 

3578 02341 000175 ALTMD OCT 175 

3579 02342 020000 DCHN OCT 20000 

3580 02343 120000 B120K OCT 120000 

3581 02344 122700 DSTC OCT 122700 

3582 02345 160000 B160K OCT 160000 

3583 02346 177400 HIMSK OCT 177400 

3584 00011 TTYSC EQU IIB 

3585 02347 056015 RVRSL OCT 56015,5000 

3586 02351 000000 CCNTY BSS 1 

3587 02352 000000 INBUF BSS 36 

3588 02416 000000 BUFAD BSS 1 

3589 02417 000000 TFLAG BSS 1 

3590 02420 000000 TTYTM BSS 1 

3591 02421 000000 CORE BSS 1 

3592 02422 000000 DADDR BSS 1 

3593 02423 000000 WORDC BSS 1 

3594 02424 000000 DISC# BSS 1 

3595 02425 000000 FAIL BSS 1 

3596 02426 004724 IBUFA ABS INBUF+INBU 

3597 02427 002347 RVRSA DEF RVRSL 

3598 02430 007423 BADRA DEF BADDR 

3599 02431 000160 DSTBL DEF DTBL 

3600 02432 005427 EftRIA DEF ERRIN 

3601 02433 011641 EBFDA DEF EBUF 

3602 02434 011642 EBlDA DEF EBUF+1 

3603 02435 011732 DISFA DEF DISCF 



CF] 
CF3 
[Fj 
CF] 
if} 
CF3 

CFJ 

[F] 



IF I 



CFJ 



CF] 



'PRINT ONLY' TTY COMTROL BITS 

'INPUT' T= CONTROL BITS 

ASR35 SELECT CODE 
'\ CR LF' FOR LINE DELETION 

TTY INPUT BUFFER 

TTY CHARACTER ADDRESS 

TTY I/O MODE 

TTY TEMPORARY 

CORE ADDRESS FOR DISC 

DISC ADDRESS 

BLOCK WORD COUNT FOR DISC 

DISC NUMBER 

DISC RETRY COUNTER 

F 



ADDRESS OF CHARACTER POINTER 
DISC SELECT CODE TABLE ADDRESS 
ADDRESS OF ABORT MESSAGE CODE 
ADDRESS OF ERROR BUFFER 

CF] 
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3605* 














3606* 


HliT 2 IF A SYSTEM 1 


READ 


IS BAD, 


PRESS 'RUN' TO RETRY SYSTEM 


3607* 


LOADING, 










3608* 














3609 


02436 


107700 


BSLDR 


CLC 


0,C 




3610 


02437 


062477 




LDA 


BLINK 


OUTPUT DMA/DISC 


3611 


02440 


102607 




OTA 


DMA 


H?IKAGE 


3612 


02441 


062500 




LDA 


BSYSl 


OUTPUT 


3613 


02442 


102703 




sxc 


WCR 


FIRST SEGMENT 


3614 


02443 


102603 




OTA 


WCR 


WORD COUNT 


3615 


02444 


066506 




LDB 


BSADl 


FIRST CORE ADDRESS 


3616 


02445 


062503 




LDA 


BDAD 


ESTABLISH 


3617 


02446 


102615 




OXA 


BDISC+1 


DISC ADDRESS 


3618 


02447 


106703 




CLC 


MAR 


ESTABLISH 


3619 


02450 


I 06603 




OTB 


MAR 


CORE ADDRESS 


3620 


02451 


103707 




STC 


DMA,C 


INITIATE DMA 


3621 


02452 


102714 




STC 


BDISC 


START TRANSFER 


3622 


02453 


102307 




SFS 


DMA 


WAIT FOR 


3623 


02454 


026453 




JMP 


*-l 


END OF TRANSFER 


3624 


02455 


102515 




LIA 


BDISC+1 


TRANSFER 


3625 


02456 


012512 




AND 


BSL32 




3626 


02457 


002003 




SZA, 


rRSS 


OK? 


3627 


02460 


026463 




JMP 


* + 3 


YES 


3628 


02461 


102002 




HLT 


2 


NO 


3629 


02462 


026436 




JWP 


BSLDR 


TRY AGAIN ON 'RUN" 


3630 


02463 


062501 




LDA 


BSYS2 


READ 


3631 


02464 


072423 




STA 


WORDC 




3632 


02465 


062504 




LDA 


LDRTT 


SECOND 


3633 


02466 


066507 




LDB 


BSAD2 




3634 


02467 


016145 




JSB 


DISCD 


SEGMENT 


3635 


02470 


062502 




LDA 


BSYS3 


READ 


3636 


02471 


072423 




STA 


WORDC 




3637 


02472 


062505 




LDA 


LDRTT+l 


THIRD 


3638 


02473 


066510 




LDB 


BSAD3 




3639 


02474 


016145 




JSB 


DISCD 


SEGMENT 


3640 


02475 


107700 




CLC 


0,C 


GET DATE 


3641 


02476 


126511 




JMP 


DATEP,! 


AND TIME 


3642* 














3643 


02477 


020014 


BLINK 


ABS 


20000B+BDISC 


3644 


02500 


166000 


BSYSl 


ABS 


-12000B 


SEGMENT 


3645 


02501 


165300 


BSYS2 


ABS 


14000B-26500B WORD 


3646 


02502 


167200 


BSYS3 


ABS 


26500B-: 


573008 COUNTS 


3647 


02503 


000003 


BDAD 


OCT 


3 


SEGMENT 


3648 


02504 


000000 


LDRTT 


OCT 


0,0 


DISC ADDRESSES 


3649 


02506 


100000 


BSADl 


OCT 


100000 


SEGMENT 


3650 


02507 


114000 


BSAD2 


OCT 


114000 


CORE 


3651 


02510 


126500 


BSAD3 


OCT 


126500 


ADDRESSES 


3652 


02511 


005306 


DATEP 


DEF 


LDR59 


ENTRY POINT TO DATE-TIME CODE 


3653 


02512 


000032 


BSL32 


OCT 


32 




3654* 














3655 


00007 




DMA 


EQU 


7 


DMA CHANNEL 


3656 


00014 




BDISC 


EQU 


14B 


DISC SELECT CODE (LOWER) 


3657 


00003 




MAR 


EQU 


3 


MEMORY ADDRESS REGISTER 


3658 


00003 




WCR 


EQU 


3 


WORD COUNT REGISTER 
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LOADER 



3660* 

3661* 

3662* 

3663* 

3664* 

3665* 

3666* 

3667* 

3668* 

3669* 

3670* 

3671* 

3672* 

3673* 

3674 

3675 

3676* 

3677 

3678 

3679 

3680 

3681* 

3682 

3683 

3684 

3685 

3686 

3687* 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706* 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

3714 



THE FOLLOIfING IS THE FORMAT FOR THE 
BOOTSTRAP LOADER TO BE SET IN 0,0. 
BOOTSTRAP IS LOADED INTO 2 TO 778 BY 
LOADER. WHEN IT IS READ COWpLETELY 
READ PARITY ERRORS DURING ITS INPUT. 
INSTRUCTION PERMITS THE OPERATOR TO 
BINARY LOADER AND SET SWITCH OF TH 
TO (EITHER REAL TIME EXECUTIVE OR 
OR 1 (DISC MONITOR SYSTEM). PRESSIN 
SELECTED SYSTEM LOADER FROM 0,1 OR 
PORTION OF THE BOOTSTRAP OPERATION W 
CORE THE SELECTED SYSTEM AND TRANSFE 



PORTION OF THE 
THIS SECTION OF THE 

THE PROTECTED BINARY 
INTO CORE IT CHECKS FOR 

FOLLOWING THIS, A HALT 
PROTECT THE BASIC 
E SWITCH REGISTER 
TTME-SHARED BASIC) 
G 'RUN' READS THE 
,2 RESPECTIVELY. THIS 
ILL THEN LOAD INTO 
R CONTROL TO IT. 



00000 
00000 

00000 
00002 
00003 
00004 

00005 
00006 
00007 
00010 
OOOll 

00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 

00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 



000000 
000000 
000000 
103004 

070044 
034043 
102077 
060047 
102606 

102501 
006404 
000010 
006004 
106600 
006304 
160001 
070046 
001225 
106702 
102602 
060051 
102702 
102602 
103706 
102700 
014034 
124046 

000005 
102500 
OOOOIO 
024035 
010050 
002003 
124034 
102000 



BSBS^O EGU 

ORG BSBSQ 

RLOAD OCT 0,0 
RT/TS OCT 
DMS OCT 

HLT 4,C 



ASSEMBLY ORIGIN 

DON'T USE (A) AND (B) 

REAL TII4E EXEC/TIME-SHARED BASIC 

DISC MONITOR SYSTEM 

IN CASE OF POwER FAIL 



BSLDO STA BSLD2-BSBS0+1 CHANGE IRRECOVERABLE HLT 

ISZ BSLD2-BSBS0 INTO RECOVERABLE HLT 1 

HLT 77B PROTECT BBL, SET SWR FOR SYSTEM 

LDA LINKG-BSBSO SET UP DISC/DMA 

OTA 6 LINKAGE 



BSLDl LIA 
CLB, 
SLA 
INB 

DSK? 0TB 
CCE, 
LDA 
STA 
RAL, 
CLC 
OTA 
LDA 
STC 
OTA 
STC 

DSK8 STC 
JSB 
JMP 



1 
INB 




INB 

CORAD 

ERA 

2 

2 

.N64" 

2 

2 

6,C 



TSTAT 

CORAD 



SELECT SYSTEM LOADER 
FROM SWITCH REGISTER: 

SWR =: IMPLIES SECTOR 1 
SWR = 1 IMPLIES SECTOR 2 
OUTPUT DISC ADDRESS 
SAVE 

CHOSEN LOADER'S 
-BSBSO ENTRY POINT 

OUTPUT 'READ' FORM 
OF LOADER'S 
CORE ADDRESS 
BSBSO OUTPUT 

TRANSFER 
LENGTH 
START DMA 

START DISC TRANSFER 
-BSBSO VALIDATE READ 
-BSBSO,! TRANSFER TO SYSTEM LOADER 



TSTAT DEF BSLDO-BSBSO (INITIAL EXIT) 
DSK9 LIA WAIT FOR 

SLA TRANSFER 



JMP *-BSBS0-2 
AND BSB32-BSBSO 
SZA,RSS 

JMP TSTAT-BSBSO,! 
BSLD2 HLT 



COMPLETION 
TRANSFER 

OK? 
YES 
NO (HLT 1 



NOP AFTER CHECK 
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3715 00044 024043 



JMP *-BSBSO-l 



3716 


00045 


024012 




JMP 


BSLDl-BSBS 


3717* 












3718 


00046 


000000 


CORAD 


OCT 





3719 


00047 


020000 


LIMKG 


OCT 


20000 


3720 


00050 


000032 


BSB32 


OCT 


32 


3721 


00051 


177700 


.N64 


DEC 


-64 


3722* 












3723 


00077 






ORG 


BSBSO+77B 


3724 


00077 


024035 




JMP 


DSK9-BSBS0 


3725 








END 





ON BOOTSTRAP ITSELF) 
RETRY LOAD 

SYSTEM LOADER ENTRY ADDRESS 
DISC/DMA LINKAGE TEMPLATE 
TRANSFER VALIDATIOfI MASK 



TEST BOOTSTRAP LOAD 



** NO ERRORS *TOTAL ♦*RTE ASMB 92067-16011** 
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00023 00030 00044 02070 



**ORG 


***** 


00005 


00009 




03348 


03675 


03723 


.12 


01140 


00083 


01141 


.13 


01142 


00761 


01143 


.15 


01144 
00984 


00094 


00172 


.17 


01145 


00801 




.19 


01146 


00241 




.2 


01134 


0029^ 


00339 


.20 


01147 


00567 


01029 


.21 


01148 


00276 




.22 


01149 


00226 


01025 


.23 


01150 


00271 




.24 


01151 


00412 


00950 


.26 


01152 


OOllB 


01119 


.3 


01135 


00915 




.32 


01153 


00437 


01154 


.38 


01155 


00357 


01020 


.4 


01136 


00128 


00334 


.5440 


01162 


00592 


00704 


.6 


01137 


00659 


00668 


.600 


01161 


00979 




.7 


01138 


00212 


00502 


.8 


01139 


00936 


00967 


.85 


01159 


00609 




.N 


03284 


02280 




.N64 


03721 


03699 




.Y 


03285 


02278 





00258 00378 00423 00955 



00452 00564 00573 00676 



01192 



00640 00642 00644 00657 
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?BEND 


00056 


00884 












?BGIN 


00055 


00880 












?BHED 


00053 


00872 












?BSTR 


00054 


00876 












IID 


00057 


00888 












?MASK 


00052 


00864 












A 


01166 


00373 












ABS 


02598 


02549 


02559 


02607 


02608 






ADD2K 


02315 


02301 












ADD3K 


02316 


02302 












ADD4K 


02317 


02303 












ADLEN 


00014 
01413 


00162 
01419 


00169 
01421 


00323 
01666 


00555 
01870 


00705 
01884 


00728 
01885 


ADLOC 


00013 


00167 


00478 


00727 








ADTBA 


01199 
00730 


00165 


00289 


00322 


00337 


00558 


00710 


ADTBF 


02012 


01417 


01669 


01851 


01872 






ADTBL 


01198 


01199 


01200 


02012 








ADVAl 


01815 


01799 


01805 


01811 








ADVAL 


01794 


01239 


01802 


01808 


01814 






ADVLA 


01239 


00778 


00781 










ALTMD 


03578 


03393 












ASR35 


01235 
00228 
00416 
00940 
01031 


00085 
00230 
00425 
00957 
01121 


00087 
00243 
00439 
00969 


00096 
00359 
00569 
00971 


00120 
00361 
00763 
00986 


00122 
00380 
00803 
01022 


00174 
00414 
00938 
01027 


ASRDA 


02017 
01623 


01371 
01817 


01484 
01836 


01498 
01943 


01542 
01945 


01565 
01958 


01573 


AUTCK 


02801 


02510 


02796 


02805 








BlOO 


01157 


01190 


01193 
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BIOOK 


03264 


02248 






8106 


01158 


01194 






B120K 


03580 


03357 






B14 


01141 


00116 


00143 


00269 


B15 


01143 


00960 






B160K 


03582 


03425 






B40 


01154 


00693 


00840 




B400 


01160 


00305 


00547 


00621 


B60 


01156 


00251 






B6400 


02002 


01494 






BADAD 


02051 


02043 






BADD 


02054 


02044 






BADDA 


02044 


01572 






BADDR 


02038 


01916 


01917 


03598 


BADP 


02057 


02045 






BADPA 


02045 


01835 






BADRA 


03598 


03422 






BASPG 


03287 


02116 






BDAD 


03647 


03616 






BDADA 


02043 


01816 






BDDL 


01293 


01258 


02040 




BDDLA 


02040 


01370 


01564 




BDISC 


03656 


03617 


03621 


03624 


BDLA 


01258 


00259 






BIT15 


01163 


00166 


00432 


00687 


BKSP 


03431 


03400 


03413 


03434 


BKSPC 


03577 


03388 






BLANK 


01999 


01923 







03643 



03445 



PAGE 0088 

CROSS-REFERENCE SYMBOL TABLE 12? 13 PM TUE,, 23 OCT., 1979 



BLDRA 


01263 


00438 












BLDRC 


01307 


01263 












BLINK 


03643 


03610 












BMASK 


02003 


02015 












BMSKA 


02015 


01394 












BPAGA 


02009 


01806 












BPLEN 


02372 


02113 












Bsmi 


03644 


01615 












BSAD2 


03650 


03290 


03633 










BSAD3 


03651 


03293 


03638 










BSB32 


03720 


03711 












BSBSA 


01216 


00431 


00461 










BSBSO 


03674 


01216 


03675 


03682 


03683 


03685 


03695 




03699 


03704 


03705 


03707 


03710 


03711 


03713 




03715 


03716 


03723 


03724 








BSL32 


03653 


03625 












BSLDO 


03682' 


03707 












BSLDl 


03688 


03716 












BSLD2 


03714 


03682 


03683 










BSLDR 


03609 


01217 


03629 










BSPGA 


03286 


02115 












BSYIA 


01210 


00913 












BSY2A 


01211 


00918 












8Sy3A 


01212 


00923 












BSYSl 


03644 


01210 


03612 










BSYS2 


03645 


01211 


03288 


03630 








BSYS3 


03646 


01212 


03291 


03635 








BUFA 


03274 


02503 


02558 


02561 


02581 


02656 


02697 




02750 


02884 


02887 


02973 


03003 


03036 


03050 
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03068 



B0FAD 


03588 
03438 


03354 
03439 


03364 


03365 


03401 


03402 


03423 


BUFL 


03275 


02502 


02532 


02548 


02551 


02660 


02760 




02772 


02776 


02872 


02882 


02901 


02974 


03049 




03060 


03066 


03067 


03071 


03083 






C 


01167 


00376 












CCNT 


03272 


02162 


02165 










CCNTY 


03586 
03436 


03350 


03359 


03363 


03398 


03408 


03432 


CEQTA 


01191 


00148 












CHKSA 


01265 


00802 












CHKSM 


01312 


01265 












CMAND 


02812 


02512 


02575 


02590 


02616 


02635 


02642 




02675 


02680 


02682 


02733 


02748 


02817 




CMND 


02382 


02507 


02536 


02623 


02624 


02659 


02701 




02702 


02707 


02713 


02720 


02788 


02802 


02813 




02814 


02835 


02837 


02902 


02938 


02976 


02985 




03022 


03075 


03106 


03107 


03111 


03114 


03132 




03133 


03134 












CNT 


03277 


02556 


02566 


02579 


02585 


02594 


02605 




02654 


02686 


02695 


02696 








CNTR 


02775 


02650 


02692 


02785 








C0M6 


00048 


01066 


03301 










CDH6A 


03301 


02241 












COMMA 


01164 


00256 












CONl 


03164 


03298 












CONIA 


03298 


03152 












C0N2 


03188 


03299 












C0N2A 


03299 


03158 












C0N3 


03217 


03300 












C0N3A 


03300 


03160 












CORAD 


03718 


03695 


03705 











PAGE 0090 

CROSS-REFERENCE SYMBOL TABLE 



12513 PN TUE.r 23 OCT., 1979 



CORE 


03591 


03456 


03483 


03506 


03519 






COUNT 


01224 
00789 


00554 


00561 


00584 


00595 


00606 


00766 


D 


01168 


00233 












D.IO 


03234 


02271 












D.16 


03565 


03528 












D.19 


03240 


02792 


03098 










D.24 


03241 


02334 












D.25 


03243 


02806 


03125 










D.3 


03227 


02599 


02917 










D,4 


03228 


02789 












D.5 


03229 


02784 


03286 










D.6 


03230 


02187 












D/72 


03572 


03399 












D5440 


03262 


02159 


02167 










DADDR 


03592 


03455 


03463 


03489 


03494 


03503 


03537 


DASH 


02001 


01557 












DATA 


02383 


02662 


02664 


02667 


02669 


02673 


02703 




02705 


02709 


02711 


02715 


02717 


02722 


02724 




02731 


02834 


02957 


02972 


02978 


02980 


02984 




03009 


03021 


03077 


03079 








DATE 


00061 


00951 


00989 


00990 








DATEA 


01266 


00937 












DATEP 


03652 


03641 












DATER 


01315 


01266 












DBIO 


03232 


02309 












DBIOO 


03249 


02571 


02591 


03304 








DBlOl 


03250 


02541 


02862 










DB105 


03251 


02860 
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DBll 


03233 


02634 


02681 




DBUO 


03253 


02844 


03131 




0B12 


03563 


03381 


03541 




DB15 


03236 


02947 


02993 




DB17 


03238 


02283 






DB176 


03573 


03395 






DB177 


03574 


03370 


03380 


03383 


DB200 


03256 


02357 


02576 


02617 


DB201 


03257 


02535 






DB215 


03254 


02958 






DB23 


03239 


02700 


03007 


03240 


DB300 


03258 


02511 






DB31 


03242 


02658 


02970 


03243 


DB32 


03567 


03523 






DB33 


03568 


03391 






DB35 


03245 


02641 






DB40 


03246 


0250& 


02612 


02683 


DB400 


03259 


02149 


02172 


02803 


DB41 


03247 
03033 


02601 


02679 


02747 


DB60 


03569 


03532 


03542 


03545 


DB7 


03231 


02515 


02840 


02841 


DB733 


03260 


02676 


02737 




DB757 


03261 


02734 




- 


DB77 


03570 


03470 


03540 




DCHN 


03579 


03472 






DDIRA 


03304 


02119 


02185 




DEQTA 


01192 


00147 







02643 02740 02873 



02919 02953 02991 
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DIGCK 


01896 
01903 


01511 
01905 


01520 
01906 


01721 


01750 


01757 


01900 


DIRBA 


01203 


00510 












DIRBF 


01279 


01203 












DIRE6 


01194 


00206 


00496 


00508 








DIREA 


01193 


00635 












DIREC 


00010 


00105 












DISC 


01236 
00511 
00903 


00149 
00525 
00917 


00168 
00605 
00922 


00433 
00619 
00927 


00455 
00681 
01104 


00459 
00688 


00462 
00731 


DISC# 


03594 


03466 


03531 










DISCI 


03497 


03478 


03499 


03502 


03527 






DISC2 


03504 


03482 












DISC3 


03512 


03475 












DISC4 


03515 


03479 












DISC5 


03522 


03480 












DISC6 


03526 


03518 












DISC? 


03554 


03521 


03525 






» 




DISCD 


03454 


01236 


03296 


03459 


03555 


03634 


03639 


DISCF 


03329 


03603 












DISCN 


03296 
02249 


02117 
02256 


02128 


02156 


02194 


02217 


02222 


DISFA 


03603 


03529 












DISMA 


01256 


00227 












DISMD 


01288 


01256 












DM1 


03226 


02653 


02657 


02698 


02968 






DM10 


03222 


02690 












DM255 


03220 


02085 


02135 










DM3 


03225 


02998 
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DM4 


03224 


02183 












DM5 


03223 


02350 


02652 


02694 


02753 


03039 




DM64 


03221 


02118 


02243 


03154 








DMA 


03655 
03622 


03473 


03511 


03513 


03554 


03611 


03620 


DMS 


03679 


00454 












DMTRL 


03307 


02246 












DONEA 


03312 


02310 












DONEM 


03320 


03312 












DSK7 


03692 


00434 


00443 










DSK8 


03703 


00445 












DSK9 


03708 


00447 


03724 










DSTBL 


03599 


03467 












DSTC 


03581 


03474 












DTBL 


00016 


00144 


01196 


02014 


03599 






DTBLA 


01196 


00481 












DTMPO 


03268 
02227 


02086 
02232 


02094 
02251 


02136 
02262 


02174 


02184 


02200 


DTMPl 


03269 
02190 
02245 


02088 
02198 
02254 


02091 
02224 
02260 


02093 
02228 


02138 
02229 


02150 
02230 


02173 
02242 


DTMP2 


03270 
02261 


02154 


02171 


02247 


02250 


02252 


02257 


DTRKB 


03305 


02130 


02157 


02166 


02196 


02258 


02351 


DTRKR 


03306 


02127 


02155 


02193 


02255 






DULTB 


03303 


02087 


02137 










DULTT 


03302 


02089 












DZMBA 


01259 


00272 












DZMBF 


01296 


01259 












EBIDA 


03602 


03548 
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EBFDA 


03601 


03535 


03551 




EBUF 


03281 


02016 


03601 


03602 


EBUFA 


02016 


01495 


01497 




ECNT 


03279 


02691 


02744 




ENDR 


02759 


02708 


02714 


02721 


ENDRl 


02772 


02764 


02767 


02769 


EOFER 


01020 
00826 


00198 
00841 


00519 


00545 


EOFM 


01325 


01270 






EOFMA 


01270 


01021 






EOTC 


02819 


02633 


02648 


02689 


EOTF 


03278 


02509 


02644 


02821 


EOTM 


01309 


01264 






EOTMA 


01264 


00762 






EQTA 


01190 


00109 


00195 




EQTLN 


01178 


00106 






ERR 


02826 


02685 


02756 




ERR.l 


02900 


02842 


03042 




ERRl 


00094 


00089 






@£RR2 


00172 








ERR3 


00241 


00235 


00238 


00260 


ERR4 


00378 


00363 


00369 


00372 


ERRS 


00567 


02022 






ERR5A 


02022 


01678 






ERR6 


00955 


00944 


00948 


00962 


ERR7 


00984 


02023 






ERR7A 


02023 


01749 


01751 


01756 


ERRIA 


03600 


03553 







00601 00615 00694 



02824 



00273 00278 



00966 



01758 01765 
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ERRIN 


01029 


00440 


00570 


01023 


01122 


03600 




EXIT 


02529 
02678 


02560 
02739 


02568 
02778 


02583 


02596 


02636 


02647 


FADTl 


01852 


01857 












FADTP 


01847 


01422 


01466 


01854 








FAIL 


03595 


03469 


03486 


03496 


03526 






GAP 


02632 


02526 












GETCA 


01249 
003§2 


00088 
00^68 


00231 
00371 


00234 
00417 


00237 
00982 


00249 


00274 


GFTCR 


01915 
01755 
03294 


01249 
01924 


01518 
01926 


01527 
01927 


01555 
01928 


01719 
01946 


01748 
01960 


GETMT 


01940 


01250 


01947 


01950 


01959 


01966 


01967 


GTDNl 


01555 


01559 












GTDN2 


01563 


01556 












GTDN3 


01567 


01562 












GTDN4 


01571 


01581 












GTDN5 


01575 


01570 












GTDN6 


01583 


01576 












GTDNA 


01240 


00246 












GTDNO 


01553 


01240 


01349 


01566 


01574 


01583 


01584 


GTMTl 


01956 


01962 












GTMT2 


01960 


01955 












GTMT3 


01966 


01953 












GTMTA 


01250 


00182 












GTTRl 


01670 


01677 












GTTR2 


01679 


01674 












GTTRA 


01241 


00394 


00476 


00499 








GTTRK 


01663 


01241 


01684 


01690 
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HIMSK 


03583 


03442 








HLT22 


0231S 


02304 








I 


01169 


00236 








IBUFA 


03596 


03421 








IDLEN 


00012 


00515 


00521 


00702 


00722 


IDLOC 


00011 


00477 


00523 


00725 


02126 


IDTBA 


01201 


00516 


00524 


01202 




IDTBL 


01200 


01201 


03305 


03306 




ILDTA 


01267 


00956 








ILDTE 


01317 


01267 








ILIN 


03323 


01253 


03313 






ILINA 


01253 


00095 


00173 


00379 


00424 


ILINM 


03313 


02284 








ILSCA 


01260 


00277 








ILSCD 


01299 


01260 


02041 






ILSCL 


02041 


0J541 


01957 






ILTIA 


01269 


00985 








ILTIM 


01322 


01269 








ILTRA 


02042 


01622 








ILTRL 


02048 


02042 








INBUF 


03587 


03596 


03596 






INCRE 


00050 


00892 


00898 






INF 


01996 


01732 


01737 






INRPA 


02010 


01809 








INTGl 


01718 


01731 








INTG2 


01734 


01720 


01722 






INTGA 


01242 


00941 


00959 






INTGR 


01714 


01242 


01354 


01373 


01560 



02124 02129 



01618 01733 



PAGE 0097 

CROSS-REFERENCE SYMBOL TABLE 12:13 PM TUE., 23 OCT., 1979 





01736 


01738 






ISOTA 


01243 


00349 


01078 


01082 


ISOTti 


01698 


01243 


01439 


01471 


JDRTl 


03292 


02220 






JDRTT 


03289 


02215 






JMPMl 


02319 


02307 






JSAD2 


03290 


02216 






JSAD3 


03293 


02221 






JSYS2 


03288 


02213 






JSYS3 


03291 


02218 






L 


01170 


00367 






L.IO 


01980 


01487 


01725 


01753 


L.IS 


01982 


01834 


01983 




L.15 


01984 


01369 


01563 




L,17 


01985 


01571 


01815 




ti,2 


01977 


01665 


01686 


01856 


L.20 


01986 


01482 






L.21 


01987 


01540 


01956 




14.23 


01988 


01621 






L.24 


01989 


01941 






L.3 


01978 


01496 


01700 




li.39 


01990 


01629 






L22A 


02020 


01350 


01372 


01453 


L46A 


02021 


01820 






LABOA 


01272 


01030 






LABOR 


01329 


01272 






LBIOO 


01993 


01638 






LBll 


01979 


01812 







01671 01705 



01981 



01880 



01837 
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LB12 


01981 


01901 






liBlS 


01983 


01367 


01374 


01619 


LB377 


01994 


01644 


01704 


01922 


LB400 


01995 


01448 






LB54 


01991 


01364 


01561 




l^B60 


01992 


01488 


01491 




LBRY 


01282 


01252 






L#RYA 


012S2 


00084 






LD72 


01972 


01898 






LD77 


01971 


01530 






LDR 


00079 


00045 


00097 


02317 


LDRl 


00104 


00093 






liDRlO 


00262 


00257 


00275 




liDRll 


00266 


00270 






LDR12 


00269 


00265 






LDR13 


00274 


00252 






LDRJ4 


00287 


00232 






liDRlS 


00300 


00314 






LDR16 


00304 


00299 






LDR 17 


00313 


00308 






LDR 18 


00334 


00170 






LDR19 


00339 


00344 






LDR2 


00110 


00113 






LDR20 


00343 


00353 






LDR21 


00346 


00342 






LDR22 


00357 


00345 


00381 


02020 


LDR23 


00389 


00374 







01925 



01952 
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LDR24 00393 

LDR25 00412 

LDR26 00423 

LDR27 00428 

LDR28 00442 

liDR29 00456 

LDR3 00118 

IjDR30 00482 

LDR31 00497 

LDR32 00548 

LOR33 00560 

LDR34 00571 

LDR35 00577 

LDR36 00587 

LOR37 00621 

LDR38 00646 

LDR39 00654 

LDR4 00130 

LDR40 00663 

LDR41 00668 

LDR42 00693 

I.DR43 00702 

LDR44 00711 

£iDR45 00722 

LDR46 00753 

LDR47 00756 

LDR48 00766 

LDR49 00782 



SYMBOL TABLE 

00398 

00426 

00418 

00420 

00422 

00436 

00124 

00487 

00504 

00624 

00566 

00580 

00563 

00576 

00550 

00691 

00662 

00133 

00655 

00678 

00650 

00466 00514 

00715 00721 

00707 

00765 00794 

00760 

00758 

00777 00790 
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LDR5 


00143 


00183 




LDR50 


00817 


00738 




LDR51 


00823 


00831 




LDR52 


00832 


00839 




LDR53 


00840 


00836 




L0R54 


00845 


00772 




LDR58 


00863 


00905 




LDR59 


O0«^36 


00958 


03^652 


LDR6 


00158 


00033 




LDR60 


00959 


00954 




LDR61 


00967 


00987 




LDR62 


00988 


00983 




LDR63 


01013 


01001 




LDR7 


00182 


00091 




LDR8 


00226 


00135 


00244 


LDR9 


00245 


00240 




LDREl 


00611 


00594 




LDRTA 


01209 


00400 




LDRTT 


03648 


01209 


03289 


LDTBL 


02014 


01578 


01600 


LIA15 


01183 


00446 




LIBRA 


00047 
01105 


00782 


00799 


LINKA 


01184 


00448 




LINKG 


03719 


00449 


03685 


LKUNl 


01369 


01376 




LKUN2 


01373 


01365 




LKUN3 


01387 


01368 


01452 



00247 00255 00267 00268 



03292 03632 03637 
01639 01701 

00833 01064 01068 01103 
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LKUN4 


01429 


01436 












LKUN5 


01447 


01410 


01415 


01465 


01480 


01499 




LKUW6 


01464 


01400 












LKUN7 


01482 


01470 


01474 










LKUN8 


01493 


01490 












LKUNA 


01234 


00366 


00377 










LKUNL 


01347 


01234 












LMl 


01976 


01^81 












LM129 


01969 


01626 












LM2 


01975 


01420 


01429 


01868 








LM4 


01974 


01568 


01605 


01641 








LM64 


01970 


01831 












LM8 


01973 


01513 


01522 










LNKAD 


01197 


00776 












LOOP 


02713 


03195 












LSLTB 


00046 


01197 


02374 


02375 








LSLTE 


00071 


02374 












LTMPO 


02027 
01582 


01358 
01850 


01427 
01855 


01435 


01554 


01575 


01577 


LTMPl 


02028 
01536 
01754 


01353 
01606 
01759 


01391 
01613 
01795 


01517 
01633 
01818 


01525 
01650 


01526 
01664 


01529 
01683 


LTMP2 


02029 
01651 


01357 
01668 


01379 
01676 


01450 
01685 


01486 
01689 


01617 


01635 


LTMP3 


02030 
01647 


01355 


01363 


01382 


01451 


01640 


01643 


LTMP4 


02031 
01642 


01362 
01648 


01387 
01848 


01437 


01447 


01449 


01467 


LTMP5 


02032 
01428 
01479 


01392 
01432 
01716 


01397 
01434 
01723 


01411 
01438 
01727 


01412 
01440 
01735 


01418 
01441 


01423 
01477 



PAGE 0102 






CROSS- 


REFERENCE 


SYMBOL 


TABLE 


LTMP6 


02033 


01396 


01430 




01724 


01734 




bTRAX 


02013 


01352 


01609 


LULC 


01302 


01261 




LULCA 


01261 


00358 




Mi 


01133 


00578 




MIO 


01131 


00754 




M12 


01130 


00125 




M16 


01129 


00104 


00855 


M20 


01128 


00389 




M255 


01126 


00296 


00539 


M256 


01125 


00670 


00819 


M4 


01132 


00204 


00479 


M5440 


01124 


00596 


00646 


M64 


01127 
00703 


00145 


00163 


MAGSC 


00017 


00189 


00201 


WAR 


03657 


03505 


03507 


MAXAD 


02006 


01797 




MAXBA 


02008 


01803 




MAXYR 


01177 


00964 




MBIAS 


01179 


00980 




MCNT 


02037 


01875 


01882 


MCPAC 


03309 


02289 




MFLAG 


02034 


01347 


01398 


MGTCA 


03294 


02276 




MLTBA 


02379 


02211 


02223 


WLTBE 


02378 


02380 




MLTBL 


02369 


02225 


02379 
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01431 01433 01478 0l7l8 



00832 01085 

00682 01089 01107 



00194 



00428 00450 



00506 



02071 02504 

03508 03510 03618 03619 



02380 
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MOVUl 


01876 


01883 




MOVUA 


01244 


00575 


00718 


HOVUP 


01866 


01244 


01476 


HSTOC 


03308 


02097 




MT,1 


02802 


02810 


03188 


MT.IO 


02659 


03205 




MT.12 


02788 


02797 


03189 


Mf.l4 


02813 


03206 




MT.15 


02814 


03200 




MT,2 


02667 


03177 




MT.20 


02536 


02542 


03207 


MT,2l 


02507 


03190 




MT.3 


02669 


03164 




MT,30 


02707 


03196 




Mf.40 


02701 


03208 




MT.41 


02702 


03211 




MT.42 


02703 


03179 




MT.43 


02705 


03167 




MT.44 


02709 


03180 




MT.45 


02711 


03170 




MT.46 


02715 


02728 


03181 


MT,47 


02717 


03168 




MT.48 


02722 


03182 




MT.49 


02724 


03171 




MT.5 


02673 


03172 




MT.50 


02731 


03173 




MT.51 


02720 


03197 





01688 01886 



PAGE 0104 
CROSS-REFERENCE 



SYMBOL TABLE 



12!13 PM TUE., 23 OCT,, 1979 



'MT.52 02511 



MT.8 


02662 


03178 












MT.9 


02664 


03165 












MTAPE 


01237 


00192 


00196 


00517 


00543 


00599 


00613 




00648 


00824 


00834 


00842 








MTBLN 


02380 


02210 












MTD 


02501 


01237 


02103 


02105 


02268 


02294 


02299 




02323 


02344 


02352 


02513 


02514 


02530 


02531 




02S33 


02539 


02586 


02593 


02614 


02628 


02646 




02742 


02823 


02828 


02829 


02839 


02847 


02898 




02900 


02903 












MTDEl 


02169 


02161 












MTDER 


02333 


02296 


02297 


02326 


02327 


02346 


02347 




02355 


02356 


02359 


02730 


03020 






MTDIl 


03153 


03162 












MTDIA 


01238 


00191 












MTDIN 


03150 


01238 


02075 


03161 








MTDMO 


02090 


02095 












MTDMl 


02096 


02313 


02338 










MTDM2 


02150 


02175 












MTDM3 


02172 


02152 












MTDM4 


02186 


02201 












MTDM5 


02199 


02189 












MTDM6 


02228 


02233 












MTDM7 


02252 


02263 












MTDM8 


02301 


02073 












9MTDMP 


02071 














MTDMU 


02292 


02281 












MTDMV 


02298 


02267 












MTENR 


02282 


02277 












MTE5Q 


02270 


02286 
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MTFLA 


02019 


01951 


01963 


01965 


MTFLG 


01225 


00134 


00159 


00188 




00512 


00736 


02019 




MTGVf 


02287 


02279 






MTLM 


03331 


03316 






MTLWA 


03316 


02807 


03126 




MTRLA 


01208 


00820 


00830 




MTRLT 


00035 


01208 


03307 




MTRWD 


02103 


02109 






MTSC 


01286 


02018 






MTSCA 


02018 


01942 






MTSCD 


03280 


03151 


03155 


03159 


MTVFL 


02324 


02100 


02265 


02342 


MTVFS 


02099 


02290 






MTVLC 


02725 


02101 






MTVLQ 


03015 


02102 






MTWF 


02340 


02202 


02264 


02322 


MTWFY 


02349 


02343 






MTWFZ 


02357 


02354 






MTWR 


02321 


02120 


02131 


02139 




02212 


02231 


02259 


02329 


MXADT 


01998 


01414 






MXDAY 


01176 


00946 






N 


01171 


00092 


00421 




N.3 


03560 


03418 


03465 




M.6 


03561 


03549 


03550 




N5440 


03219 


02163 






NBIO 


03562 


03516 







00200 00203 00464 



02328 02348 02358 



02164 02170 02197 
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NBIOO 


03571 


03481 






NB15 


03564 


03410 






NB200 


03575 


03371 


03477 




NB23 


03566 


03386 






NMl 


03559 


03362 


03435 




NMIO 


03558 


03495 






NM64 


03557 


03461 






NOISE 


03030 


03048 









01172 


00370 






O.B 


03132 


03214 






OODSA 


01274 


00568 






OODSP 


01333 


01274 






0TB15 


0X181 


00435 


00442 




OUT 


02661 


02672 






pa 


02558 


02550 


02582 


02587 


P. 2 


02570 


02553 


02578 


02580 


P. 3 


02589 


02563 


02595 




P. 4 


02585 


02573 






PARCi 


01834 


01381 






PARCK 


01829 


01356 


01377 


01833 


PHI 


01186 


01003 






PH2 


01187 


01006 






PHINl 


00065 


01004 






PHIN2 


00066 


01007 






PHIN3 


00067 


01009 






PHIN4 


00068 


01012 






PHNSC 


00018 


00999 






POS 


02548 


02524 







12:13 PM TUE., 23 OCT., 1979 



PAGE 0107 

CROSS-REFERENCE SYMBOL TABliE 



12:13 PM TUE., 23 OCT., 1979 



PWRFL 


00069 


01013 




ROMS 


01305 


01262 




RDMSA 


01262 


00413 




READ 


01774 


01245 


01782 


READ! 


01776 


01784 




READA 


01245 


00756 


00769 


READT 


02689 


02520 


02755 


READX 


02736 


02773 




REJCT 


03131 


03110 




RERED 


02696 


02749 




RES 


02541 


02525 




RETRY 


02655 


02687 




REW 


02535 


02523 




RLOAD 


03677 






ROSTA 


01257 


00242 




RQSTD 


01290 


01257 




RSSA 


01188 


01008 




RSYAl 


01213 


00921 




RSyA2 


01214 


00926 




RT/TS 


03678 


00457 




RVRSA 


03597 


03419 




RVRSL 


03585 


03597 




RWEOF 


02958 


02955 




S 


01173 


00239 




S.l 


02623 


03191 




S,2 


02624 


03193 




S/TDO 


01284 


01254 





00770 



00785 



00792 
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S/TDA 


01254 


00119 




SELCl 


01538 


01543 




SELC2 


01540 
01535 


01512 


01515 


SELCA 


01246 


00253 




SELCD 


01510 


01246 


01533 


SETDl 


01605 


01653 




SETD2 


016U 


01614 




SETD3 


01617 


016rO3 




SETD4 


01621 


01628 


01631 


SETD5 


01625 


01620 




SETD6 


01638 


01646 




SETD7 


01643 


01649 




SETDA 


01247 


00123 


00266 


SETDS 


01598 


01247 


01615 


SGNBT 


01997 


01964 




SHORT 


02750 


02746 




ShQ 


02894 


02836 




SLASH 


03576 


03534 




SLDIR 


01231 


01067 


01087 


SLSH 


01165 


00953 




SOURC 


02036 


01867 


01876 


SPACE 


02610 


02554 


02564 


STAR 


02000 


01954 




STAT 


02627 


02527 




STC14 


01182 


00444 




STIN 


02622 


02529 


02570 




02816 


02820 


02826 
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01519 01521 01524 01532 



01537 01538 01S39 01948 



01616 01624 



01100 01101 

01878 01881 
02619 02620 



02611 02625 02627 02736 



5WPAA 00060 



00902 
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SWPIA 


00058 


00863 












SWPLN 


00059 


00900 












SYSL 


01331 


01273 












SYSLl 


01070 


01075 












SYSL2 


01085 


01062 












SYSL4 


01100 


01118 












SYSL5 


01107 


01092 












SYSliS 


01119 


01110 












SYSLA 


01273 


01120 












SYSLB 


01052 


00783 


00838 


00845 


01055 


01106 




SYSLF 


01226 


00081 


00082 


00160 


00161 


00209 


00484 




00488 


00489 


00491 


00493 


00734 


00735 


00800 




00818 


01053 


01061 


01065 


01074 






SYSSl 


01229 


01079 


01090 


01094 


01095 






SYSS2 


01230 


01083 


01108 


01112 


01113 






SYSTi 


01227 


0107? 


01096 


01098 


01099 






SYST2 


01228 


01081 


01114 


01116 


01117 






SYSTA 


02007 


01800 












TAPEA 


01271 


01026 












TAPER 


01327 


01271 












TAPMA 


03314 


02335 












TAPMS 


03326 


03314 












TBASE 


02519 


02516 












TEMPO 


01219 


00107 


00112 


00126 


00132 


00205 


00213 




00288 


00303 


00306 


00336 


00343 


00390 


00397 




00480 


00486 


00495 


00503 


00540 


00623 


00636 




00656 


00658 


00663 


00685 


00709 


00720 


00774 




00787 


00788 


00856 


00904 


00942 


00952 


00974 




00988 














TEMPI 


01220 


00115 


00248 


00264 


00295 


00309 


00310 




003U 


00312 


00315 


00392 


00395 


00396 


00497 




00500 


00501 


00542 


00548 


00590 


00622 


00666 
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00677 
00858 


00716 
00896 


00719 
00897 


00768 
00899 


00780 
02024 


00795 


00804 


TEMP2 


01221 
00620 


00117 
00796 


00262 
00805 


00297 
00860 


00313 
00894 


00552 
00895 


00587 
02025 


TEMP3 


01222 
00589 
00862 
00891 


00300 
00603 
00865 
00893 


00304 
00608 
00873 


00557 
00610 
00877 


00565 
00617 
00881 


00572 
00775 
00885 


00582 
00798 
00889 


TEMP4 


01223 
00821 


00509 
00823 


00653 
00828 


00661 
00829 


00679 
01069 


00684 
01070 


00690 
01072 


TFLAG 


03589 


03356 


03376 


03415 


03424 






TIME 


00062 


00981 












TIMEA 


01268 


00968 












TIMER 


01320 


01268 












TMPIA 


02024 


01599 


01607 










TMP2A 


02025 


01601 


01636 










TPERR 


01025 
00827 


00199 
00837 


00520 


00546 


00602 


00616 


00651 


TRAX 


00015 


01195 


02013 










TRAXA 


01195 


00127 


00287 










TRKNA 


02046 


01483 












TRKNL 


02060 


02046 












TRKTA 


01206 


00391 












TRKTB 


01232 
01207 


00399 


00920 


00925 


01076 


01080 


01206 


TSB 


00064 


01015 












TSBBA 


01217 


00453 


00456 










TSTAT 


03707 


03704 


03713 










TT35I 


03295 
02808 


02273 
03100 


02275 
03127 


02285 


02311 


02336 


02794 


TTYl 


03359 


03378 












TTY2 


03373 


03382 


03384 


03387 


03412 


03414 


03426 
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TTY35 


03349 
03417 


01235 
03420 


02017 
03530 


03295 
03552 


03361 


03411 


03416 


TTY4 


03413 


03389 












TTY5 


03415 


03392 


03394 


03396 








TTY6 


03421 


03352 












TTYDA 


00051 


00857 












TTYSC 


03584 


03358 


03372 


03373 


03374 


03379 




TTYTM 


03590 


03397 


03409 


03444 








r^MQUk 


04248 


00972 


00975 










TWODG 


01747 


01248 


01761 


01762 


01764 






U 


01174 


00365 












ULTMl 


01205 


00638 


00672 










ULTTA 


00070 


03302 












ULTTB 


01204 


00541 












UPRBA 


01202 
00680 


00598 


00604 


00612 


00618 


00647 


00667 


USTRA 


01207 


00859 












VRFY 


03337 


03318 












VRFYA 


03318 


02272 












WCWT 


03276 


02574 


02589 


02602 


02615 


02655 


02671 


WCR 


03658 


03613 


03614 










WEOF 


02640 


02522 












mE 


03334 


03317 












WNEA 


03317 


02793 


03099 










WNEC 


02787 


02632 


02640 


02649 


02791 






WORD 


01215 
00551 
00729 


00146 
00591 
00901 


00164 
00597 
00914 


00429 
00607 
00919 


00451 
00611 
00924 


00507 
00652 
01086 


00522 
00683 


WORDC 


03593 
03636 


01215 


03297 


03457 


03462 


03509 


03631 
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WORDN 03297 02114 02125 02153 02158 
02195 02214 02219 02244 02253 



02169 



02191 



if^RITE 02648 



02521 



XABS 


02915 
02923 


02712 
02925 


02759 
03006 


02843 
03012 


02846 
03046 


02874 


02889 


XATCK 


03121 


02838 


03102 


03124 


03129 






XBASE 


02851 


02848 












XCMND 


03105 
02971 


02845 
02992 


02864 
02994 


02930 
03008 


02948 
03034 


02954 
03113 


02959 
03117 


XCMTR 


03082 
03001 


02880 
03010 


02t9§ 
03085 


02911 
03089 


02924 


02967 


03000 


XENDl 


03060 


03055 












XEND2 


03057 


03052 












XENDR 


03046 


03029 












XEOTC 


03138 
03143 


02928 


02946 


02962 


02966 


02995 


02997 


XGAP 


02945 


02858- 












XIT 


02898 
03087 


02886 


02890 


02949 


02963 


02990 


03072 


XITl 


02901 


02866 


02912 


02934 


03026 


03142 




XLOOP 


03075 


03018 


03078 


03198 








XMTD 


02831 


02506 












XOUT 


02975 


02983 












XP.O 


02891 


02896 












XP.l 


02887 


02875 


02913 










XP.2 


02905 


02877 


02892 


02909 








XP.5 


02876 


02879 


02881 










XPOS 


02872 


02856 












XREAD 


02997 


02852 


03041 










XRERD 


03002 


03035 












XRES 


02860 


02857 
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XREW 


02862 


02855 












XS.O 


03107 


03194 












XS.l 


02938 


02833 


03094 


03192 








XSHRT 


03036 


03032 












XSPCE 


02926 


02878 


02893 


02932 


02935 


02999 


03030 


XSTIN 


02937 


02831 


02865 


02899 


02906 


02941 


02987 




03024 


03092 


03116 


03122 


03139 






XT,0 


03134 


03135 


03202 










XT.l 


02837 


03210 












XT. 10 


02985 


02986 


03203 










XT. 11 


03009 


03186 












XT. 12 


02957 


03187 












XT. 13 


02834 


03176 












XT, 14 


03106 


03136 


03209 










XT. 15 


03114 


03115 


03201 










XT, 16 


02835 


03216 












XT. 2 


02978 


03183 












XT,20 


02976 


02979 


03199 










XT. 3 


02980 


03166 












XT. 4 


02902 


03215 












XT. 43 


03079 


03169 












XT. 46 


03077 


03184 












XT, 5 


02984 


02977 


03174 










XT. 50 


03021 


03076 


03175 










XT. 6 


03133 


03213 












XT. 7 


03111 


03212 












XT. 8 


03022 


03023 


03204 










XT. 9 


02972 


03185 
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XWAIT 


03074 


03011 


03013 


03080 








XWEOF 


02956 


02854 












XWEOR 


02953 


02961 












XWNEC 


03091 
02945 
03015 


02699 
02956 
03038 


02719 
02965 
03097 


02725 
02969 
03103 


02752 
02982 
03308 


02920 
03004 
03309 


02929 
03014 


XWRTE 


02965 


02853 












Y 


01175 


00090 


00419 










YEAR 


00063 


00963 













